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.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Unable to load the Are You a Human PlayThru™. Please contact the site owner to report the problem.