diff --git a/wst/trunk/date_utils.pas b/wst/trunk/date_utils.pas
index 69b119151..2a641f7b6 100644
--- a/wst/trunk/date_utils.pas
+++ b/wst/trunk/date_utils.pas
@@ -110,6 +110,7 @@ type
   ) : TTimeRec; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
   function DateTimeToTimeRec(const ADateTime : TDateTime) : TTimeRec; {$IFDEF USE_INLINE}inline;{$ENDIF}
   function TimeRecToDateTime(const ATime : TTimeRec) : TDateTime; {$IFDEF USE_INLINE}inline;{$ENDIF}
+  function DateTimeToDateTimeRec(const ADateTime : TDateTime) : TDateTimeRec;
 
   function xsd_TryStrToDuration(
     const ABuffer : string;
@@ -626,6 +627,13 @@ begin
   Result := EncodeTime(ATime.Hour,ATime.Minute,ATime.Second,ATime.MilliSecond);
 end;
 
+function DateTimeToDateTimeRec(const ADateTime : TDateTime) : TDateTimeRec;
+begin
+  Result.Date := ADateTime;
+  Result.HourOffset := 0;
+  Result.MinuteOffset := 0;
+end;
+
 type TDatePart = ( dpNone, dpYear, dpMonth, dpDay, dpHour, dpMinute, dpSecond, dpFractionalSecond );
 function xsd_TryStrToDuration(
   const ABuffer : string;