Transforma datas em dias

[fdantas]

/* ESCREVA UM ALGORITMO QUE LEIA A IDADE DE UMA PESSOA EXPRESSA EM ANOS, MESES E DIAS E MOSTRE-A APENAS EM DIAS */

DEF VAR ANO AS INT NO-UNDO.
DEF VAR MES AS INT NO-UNDO.
DEF VAR DIA AS INT NO-UNDO.
DEF VAR DIAS AS INT NO-UNDO.

DISP 'ENTRE COM OS ANOS' LABEL '' format "x(53)" .
UPDATE ANO LABEL ''.

DISP 'ENTRE COM OS MESES' LABEL '' format "x(53)" .
UPDATE MES LABEL ''.

DISP 'ENTRE COM OS DIAS' LABEL 'CONVERSÃO DE ANOS, MESES E DIAS APENAS PARA DIAS' format "x(40)" .
UPDATE DIA LABEL ''.


DO WHILE (ANO > 0) :
ASSIGN DIA = DIA + 365.
ANO = ANO - 1.
END.


DO WHILE (MES > 0) :
ASSIGN DIA = DIA + 30.
MES = MES - 1.
END.

ASSIGN DIAS = DIA.

DISP ' O TOTAL DE DIAS É DE: '.
DISP ' ' DIAS LABEL '' .