Verificar se uma data está dentro de um intervalo de anos.
DTC (<exp.D>, <exp.N1>, <exp.N2>)
|
<exp.D> |
representa um elemento do tipo data, se utilizado com $DATE ou uma cadeia de caracteres no formato dd/mm/aa. |
|
<exp.N1> |
representa o ano inicial do intervalo (dois dígitos). |
|
<exp.N2> |
representa o ano final do intervalo (dois dígitos). |
Retorna verdade (.T.) se <exp.D> está no intervalo.
Útil na consistência de dados digitados.
O exemplo a seguir mostra-nos a utilização desta função na entrada de dados, onde só serão aceitas datas entre 01/01/80 a 31/12/90.
var_dat = ""
var_num = 90
@ 10,10 SAY "Entre com a data " GET var_dat PIC "@d";
VALID DTC (var_dat,80,var_num);
MESSAGE "Data não valida"
READ
$DATE, CTOD(), DATE(), DTI(), DTV(), DTOC(), DTOS() e YEAR().