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