paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add DateTimeToDateTimeRec()

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@996 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-11-09 09:44:12 +00:00
parent 635ebf4a4e
commit 6719a67d5d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/date_utils.pas
View File

@ -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;