Data Types

Src/Data/Myc.Data.Types.Timestamp.pas

@@ -21,6 +21,9 @@ type
 
 implementation
 
+uses
+    System.Rtti;
+
 type
     TDataTimestampValue = class(TInterfacedObject, IDataValue, IDataTimestampValue)
     private
@@ -28,6 +31,7 @@ type
         function GetDataType: IDataType;
         function GetAsString: string;
         function GetValue: TDateTime;
+        function AsTValue: TValue;
     public
         constructor Create(const AValue: TDateTime);
     end;
@@ -77,4 +81,9 @@ begin
     Result := FValue;
 end;
 
+function TDataTimestampValue.AsTValue: TValue;
+begin
+    Result := TValue.From<TDateTime>(FValue);
+end;
+
 end.