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