Determinar a utilização de variáveis do tipo data.
$ DATE
Possibilita a realização de operações aritméticas com datas, sem a necessidade de convertê-las em números.
Variáveis do tipo data são variáveis declaradas através das funções DATE(), CTOD() ou itens tipo D2.
O exemplo a seguir mostra a sua utilização em um programa.
$DATE
PROG
meu_nascimento = CTOD("25/12/56")
hoje = DATE()
?"Do meu nascimento até hoje se passaram "hoje - meu_nascimento ," dias "
? "Hoje é dia ", DAY(hoje)
? "Amanhã será dia ", DAY(hoje + 1)
O exemplo a seguir mostra o mesmo programa sem a opção $DATE. Note-se que as variáveis são numéricas.
PROG
* Convertendo cadeia para número
* meu_nascimento e hoje são variáveis numéricas
meu_nascimento = CTOD("25/12/56")
hoje = CTOD(DATE())
? "Do meu nascimento até hoje se passaram ",;
hoje - meu_nascimento ," dias"
? "Hoje é dia ", DAY(hoje)
? "Amanhã será dia ", DAY(hoje + 1)
CTOD( ) e DTOC( ).