Verificar se uma data numérica no formato ddmmaa ou ddmmaaaa é válida dado um intervalo de anos.
DTV (<exp.N>, <exp.N1>, <exp.N2>)
<exp.N> |
representa uma expressão numérica com a data. |
<exp.N1> |
representa o ano inicial do intervalo (2 ou 4 dígitos). |
<exp.N2> |
representa o ano final do intervalo (2 ou 4 dígitos). |
Retorna verdade (.T.) se <exp.N> 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 &&numérica
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
? DTV(10042023,2000,2030) && retornará .T.
$DATE, CTOD(), DATE(), DTC(), DTI(), DTOC(), DTOS() e YEAR().