| Date2ISOWeekStr Function |
Unit
QESBPCSDateTime
Declaration
Function Date2ISOWeekStr(const DT: TDateTime): string;
| Parameters |
| DT | Date to take year from. |
Category
Week Based Arithmetic Routines
Date/Time Conversion RoutinesImplementation
function Date2ISOWeekStr (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)
+ Int2EStr (ISODayOfWeek (DT));
finally
ESBBlankWhenZero := Hold;
end;
End; |
|
|