Manipulando Datas

Discussão em 'Comandos Básicos' iniciado por fdantas, Janeiro 26, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Código:
    
DEFINE VARIABLE data AS DATE.

ASSIGN data = DATE(02,26,2000).

DISPLAY data.
DISPLAY YEAR(data) LABEL "ANO".
DISPLAY MONTH(data)LABEL "MES".
DISPLAY DAY(data) LABEL "DIA".

/***********************************************************************/
DEFINE VARIABLE data1 AS DATE.
DEFINE VARIABLE data2 AS DATE.
DEFINE VARIABLE ano AS INTEGER FORMAT 9999 INITIAL "2000" .

DISPLAY "Entre com o ano".
UPDATE ano.

ASSIGN data1 = DATE(01,1,ano).
 data2 = DATE(12,31,ano).

DISPLAY "Primeiro dia:" AT 01.
DISPLAY data1 WITH NO-LABELS.
DISPLAY "Ultimo dia:".
DISPLAY data2.
    fdantas, Janeiro 26, 2009
    #1

Compartilhe esta Página