| Date2ISOWeekOnlyStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOWeekOnlyStr(const DT: TDateTime): string;
| Parameters |
| DT | Date to process. |
Category
Week Based Arithmetic Routines
Date/Time Conversion RoutinesImplementation
function Date2ISOWeekOnlyStr (const DT: TDateTime): string;
var
WeekNo: Integer;
Year: Integer;
Hold: Boolean;
begin
Date2ISOWeekNo (DT, WeekNo, Year);
Hold := ESBBlankWhenZero;
ESBBlankWhenZero := False;
try
Result := Int2ZStr (Year, 4) + 'W' + Int2ZStr (WeekNo, 2);
finally
ESBBlankWhenZero := Hold;
end;
End; |
|
|