GetDateTimeStamp Function |
Unit
QESBPCSDateTime
Declaration
Function GetDateTimeStamp: string;
Category
Date/Time Arithmetic RoutinesImplementation
function GetDateTimeStamp: string; var DT: TDateTime; Year, Month, Day: Integer; Hr, Min, Sec, MSec: Word; Hold: Boolean; begin DT := Now; OptDecodeDateI (DT, Year, Month, Day); ESBDecodeTime (DT, Hr, Min, Sec, MSec); Hold := ESBBlankWhenZero; ESBBlankWhenZero := False; try Result := Int2ZStr (Year, 4) + Int2ZStr (Month, 2) + Int2ZStr (Day, 2) + '-' + Int2ZStr (Hr, 2) + Int2ZStr (Min, 2) + Int2ZStr (Sec, 2) + Int2ZStr (MSec, 3); finally ESBBlankWhenZero := Hold; end; End; |
|