| ThisWeekNo Function |
Unit
QESBPCSDateTime
Declaration
Function ThisWeekNo: Integer;
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
function ThisWeekNo: Integer;
begin
Result := Date2WeekNo (ESBToday);
End; |
|
|