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. Delphi 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 := CkDtObj_Create();
CkDateTime_ToDtObj(dateTime,bLocalTimezone,dt);

// 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)));

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

// 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)));

CkDateTime_Dispose(dateTime);
CkDtObj_Dispose(dt);

end;