Verificar se uma data está dentro de um intervalo de anos.
DTV (<exp.D>, <exp.N1>, <exp.N2>)
|
<exp.D> |
representa uma cadeia do tipo data, se utilizado com $DATE ou um número que corresponda a uma data. |
|
<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 = 0
var_num = 90
@ 10,10 SAY "Entre com a data " GET var_dat PIC "99/99/99";
VALID DTV (var_dat,80,var_num);
MESSAGE "Data não valida"
READ
$DATE, CTOD(), DATE(), DTC(), DTI(), DTOC(), DTOS() e YEAR().