| Date2ISOInt Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOInt(const DT: TDateTime): LongWord;
Description
Zero Padded.
| Parameters |
| DT | Date to process. |
Category
Date/Time Conversion RoutinesImplementation
function Date2ISOInt (const DT: TDateTime): LongWord;
var
D, M, Y: Word;
begin
OptDecodeDateW (DT, Y, M, D);
Result := Y * 10000 + M * 100 + D;
End; |
|
|