Contar Dias
Galera essa função conta quantos dias se passaram depois de primeiro de janeiro.
DEF VAR Dia as DATE NO-UNDO.
DEF VAR qtdeDias as INTEGER NO-UNDO.
ASSIGN Dia = TODAY.
ASSIGN qtdeDias = Dia – date(1,1,year(Dia)) + 1.
DISP qtdeDias.
FDantas
Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.
