Added support for getting utc datetime from v7 guid.

Author: vincentparrett

Benchmark/GuidV7Demo.dpr

@@ -6,6 +6,7 @@ program GuidV7Demo;
 
 uses
   System.SysUtils,
+  System.DateUtils,
   Spring.Benchmark,
   VSoft.UUIDv7 in '..\Source\VSoft.UUIDv7.pas';
 
@@ -43,11 +44,49 @@ begin
 end;
 
 
+//TODO: move to unit tests!
+//hacky little test
+
+procedure test;
+var
+  guid : TGuid;
+  dt : TDateTime;
+  v : integer;
+begin
+  guid := TGUID.NewGuid;
+  writeln(guid.ToString);
+  if (TUUIDv7Helper.IsV7(guid)) then
+    Writeln('v7 true')
+  else
+    Writeln('v7 false');
+
+  v := TUUIDV7Helper.Version(guid);
+  writeln('version : ' + IntTostr(v));
+
+  guid := TUUIDv7Helper.CreateV7;
+  writeln(guid.ToString);
+  if (TUUIDv7Helper.IsV7(guid)) then
+    Writeln('v7 true')
+  else
+    Writeln('v7 false');
+
+  v := TUUIDV7Helper.Version(guid);
+  writeln('version : ' + IntTostr(v));
+
+
+  dt := TUUIDv7Helper.CreatedUTC(guid);
+  writeln(dt.ToString);
+
+
+end;
+
+
 begin
-  Benchmark(BM_CreateV4, 'TGuid.NewGuid');
-  Benchmark(BM_CreateV7, 'TGuidV7Helper.CreateV7');
-  Benchmark(BM_CreateV7_DT, 'TGuidV7Helper.CreateV7(datetime)');
-  // Run the benchmark
-  Benchmark_Main;
+  test;
+//  Benchmark(BM_CreateV4, 'TGuid.NewGuid');
+//  Benchmark(BM_CreateV7, 'TGuidV7Helper.CreateV7');
+//  Benchmark(BM_CreateV7_DT, 'TGuidV7Helper.CreateV7(datetime)');
+//  // Run the benchmark
+//  Benchmark_Main;
   readln;
 end.

Benchmark/GuidV7Demo.dproj

@@ -5,7 +5,7 @@
         <FrameworkType>None</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
-        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <ProjectName Condition="'$(ProjectName)'==''">GuidV7Demo</ProjectName>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Console</AppType>

Source/VSoft.UUIDv7.pas

@@ -6,8 +6,12 @@ interface
   TUUIDV7Helper = record
     class function CreateV7 : TGuid;overload;static;
     class function CreateV7(const dt : TDateTime) : TGuid;overload;static;
+    class function CreatedUTC(const guid : TGUID) : TDateTime;static;
+    class function IsV7(const guid : TGuid) : boolean;static;inline;
+    class function Version(const guid : TGuid) : integer;static;inline;
   end;
 
+
 implementation
 
 uses
@@ -68,6 +72,14 @@ class function TUUIDV7Helper.CreateV7: TGuid;
   result.D4[0] := (result.D4[0] and (not Variant10xxMask)) or Variant10xxValue ;
 end;
 
+class function TUUIDV7Helper.CreatedUTC(const guid: TGUID): TDateTime;
+var
+  timestamp : UInt64;
+begin
+  timestamp := (UInt64(guid.D1) shl 16) or UInt64(guid.D2) ;
+  result := (timestamp / MSecsPerDay ) + UnixDateDelta;
+end;
+
 class function TUUIDV7Helper.CreateV7(const dt: TDateTime): TGuid;
 var
   timestamp : UInt64;
@@ -80,4 +92,15 @@ class function TUUIDV7Helper.CreateV7(const dt: TDateTime): TGuid;
   result.D4[0] := (result.D4[0] and (not Variant10xxMask)) or Variant10xxValue ;
 end;
 
+class function TUUIDV7Helper.IsV7(const guid: TGuid): boolean;
+begin
+ result := Version(guid) = 7;
+end;
+
+
+class function TUUIDV7Helper.Version(const guid: TGuid): integer;
+begin
+ result := integer(guid.D3 shr 12);
+end;
+
 end.