In VBScript job you can use DataPart() with "ww" parameter for the part. In JAL you can do something like the the following: Dim given_date, date Dim start_of_year, date Dim year, number Dim days, number Dim weeks, number DateTimePart( "yy", given_date, year ) MakeDate( year, 1, 1, start_of_year ) DaysBetween( given_date, start_of_year, days ) Divide( days, 7, weeks ) Dim day1, number Dim day2, number Dim week_offset, boolean DateTimePart( "dw", given_date, day1 ) DateTimePart( "dw", start_of_year, day2 ) Subtract( day1, day2, days ) IsGreater( days, 0, week_offset ) If( week_offset, DO1, DO2 ) DO1: Ceiling ( weeks, weeks ) GoTo DONE DO2: Floor( weeks, weeks ) DONE: // weeks - this is your number You can wrap this code as a user-defined statement and then call it as if it was a built-in method : Hello : Is there a ready-to-use function (couldn't find it) : in 24x7 to calculate the (international) weeknumber ? : Thanks : RObbert de GROOT
|