ThisWeekNo Function
Returns the WeekNo of the current Date (System Date).

Unit
QESBPCSDateTime

Declaration
Function ThisWeekNo: Integer;

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function ThisWeekNo: Integer;
begin
     Result := Date2WeekNo (ESBToday);
End;


HTML generated by Time2HELP
http://www.time2help.com