Numero da Semana do Ano

Discussão em 'Progress 4GL' iniciado por fdantas, Dezembro 14, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Calculando o numero da semana do ano

    Código:
    
FUNCTION WeekNumber RETURNS INTEGER (INPUT dSomeDate AS DATE):

    DEFINE VARIABLE dStart AS DATE NO-UNDO.

    ASSIGN dStart = DATE(1,1,YEAR(dSomeDate))
           dStart = dStart + (8 - WEEKDAY(dStart)).

    IF dStart > dSomeDate THEN
        RETURN 1.
    ELSE
        RETURN 2 + INTEGER( TRUNCATE(INTEGER(dSomeDate - dStart) / 7 , 0)).

END FUNCTION.

DISP weeknumber ( TODAY ).
    fdantas, Dezembro 14, 2009
    #1

Compartilhe esta Página