Date2AccessStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2AccessStr(const DT: TDateTime): string;
Parameters |
DT | Date to process. |
Category
Date/Time Conversion RoutinesImplementation
function Date2AccessStr (const DT: TDateTime): string; var Day, Month, Year: Integer; begin try OptDecodeDateI (DT, Year, Month, Day); Result := '#' + Int2ZStr (Month, 2) + '/' + Int2ZStr (Day, 2) + '/' + Int2ZStr (Year, 4) + '#'; except Result := ''; end; End; |
|