[stackoverflow] [progress Openedge Abl] Progress 4gl - Week Number Of Year

[xptoGirl]

I'm converting a date to its week number, but I get an error. Can you help me?

This is my code

function WeekNumber returns integer ( OrderRel.ReqDate as date ):

define var vDay as integer no-undo.

vDay = OrderRel.ReqDate - date( 1, 1, YEAR( OrderRel.ReqDate ) ) + 1.

return integer( truncate( vDay / 7, 0 ) ) + ( if vDay mod 7 <> 0 then 1 else 0 ).

end function.

Continue reading...