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.
terça-feira, 27 de março de 2007
Dias após 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.
Assinar:
Postar comentários (Atom)
Um comentário:
Dantas, boa tarde.
Estou trabalhando uma oportunidade para analista de negócio/desenvolvedor Datasul.
É para um projeto em Campinas.
Caso você se interesse, meu e-mail é: tatiana.sousa@holdti.com.br
Peço tambem algumas indicações já que temos três vagas com esse perfil no projeto.
Obrigada.
Tatiana
Postar um comentário