(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
strTimestamp: PWideChar;
dateTime: HCkDateTime;
bLocalTimezone: Boolean;
dt: HCkDtObj;

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 := CkDateTime_Create();
CkDateTime_SetFromTimestamp(dateTime,strTimestamp);

// Get a DtObj in the local timezone.
bLocalTimezone := True;
dt := CkDateTime_GetDtObj(dateTime,bLocalTimezone);

// Get the individual date/time components
Memo1.Lines.Add('-- Local Time --');
Memo1.Lines.Add('Year: ' + IntToStr(CkDtObj_getYear(dt)));
Memo1.Lines.Add('Month: ' + IntToStr(CkDtObj_getMonth(dt)));
Memo1.Lines.Add('Day: ' + IntToStr(CkDtObj_getDay(dt)));
Memo1.Lines.Add('Hour: ' + IntToStr(CkDtObj_getHour(dt)));
Memo1.Lines.Add('Minutes: ' + IntToStr(CkDtObj_getMinute(dt)));
Memo1.Lines.Add('Seconds: ' + IntToStr(CkDtObj_getSecond(dt)));

CkDtObj_Dispose(dt);

// Get a DtObj in the GMT/UTC timezone.
bLocalTimezone := False;
dt := CkDateTime_GetDtObj(dateTime,bLocalTimezone);

// Get the individual date/time components
Memo1.Lines.Add('-- UTC Time --');
Memo1.Lines.Add('Year: ' + IntToStr(CkDtObj_getYear(dt)));
Memo1.Lines.Add('Month: ' + IntToStr(CkDtObj_getMonth(dt)));
Memo1.Lines.Add('Day: ' + IntToStr(CkDtObj_getDay(dt)));
Memo1.Lines.Add('Hour: ' + IntToStr(CkDtObj_getHour(dt)));
Memo1.Lines.Add('Minutes: ' + IntToStr(CkDtObj_getMinute(dt)));
Memo1.Lines.Add('Seconds: ' + IntToStr(CkDtObj_getSecond(dt)));

CkDtObj_Dispose(dt);

CkDateTime_Dispose(dateTime);

end;