(Delphi ActiveX) How to Parse a TimeStamp (such as 2016-11-11T14:32:17.0908971Z)

Timestamps are frequently used in REST API responses. This example demonstrates how to parse a timestamp string to get at the date/time components in the local timezone or in the GMT/UTC timezone.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
strTimestamp: WideString;
dateTime: TCkDateTime;
bLocalTimezone: Integer;
dt: IDtObj;

begin
// Let's say we have a timestamp string such as 2016-11-11T14:32:17.0908971Z
strTimestamp := '2016-11-11T14:32:17.0908971Z';

dateTime := TCkDateTime.Create(Self);
dateTime.SetFromTimestamp(strTimestamp);

// Get a DtObj in the local timezone.
bLocalTimezone := 1;
dt := dateTime.GetDtObj(bLocalTimezone);

// Get the individual date/time components
Memo1.Lines.Add('-- Local Time --');
Memo1.Lines.Add('Year: ' + IntToStr(dt.Year));
Memo1.Lines.Add('Month: ' + IntToStr(dt.Month));
Memo1.Lines.Add('Day: ' + IntToStr(dt.Day));
Memo1.Lines.Add('Hour: ' + IntToStr(dt.Hour));
Memo1.Lines.Add('Minutes: ' + IntToStr(dt.Minute));
Memo1.Lines.Add('Seconds: ' + IntToStr(dt.Second));

// Get a DtObj in the GMT/UTC timezone.
bLocalTimezone := 0;
dt := dateTime.GetDtObj(bLocalTimezone);

// Get the individual date/time components
Memo1.Lines.Add('-- UTC Time --');
Memo1.Lines.Add('Year: ' + IntToStr(dt.Year));
Memo1.Lines.Add('Month: ' + IntToStr(dt.Month));
Memo1.Lines.Add('Day: ' + IntToStr(dt.Day));
Memo1.Lines.Add('Hour: ' + IntToStr(dt.Hour));
Memo1.Lines.Add('Minutes: ' + IntToStr(dt.Minute));
Memo1.Lines.Add('Seconds: ' + IntToStr(dt.Second));
end;