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