From 6719a67d5d5365187003fb99f4ce1dc72cbf0625 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 9 Nov 2009 09:44:12 +0000
Subject: [PATCH] Add DateTimeToDateTimeRec()

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@996 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/date_utils.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

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;