Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

DTV()

Propósito

Verificar se uma data numérica no formato ddmmaa ou ddmmaaaa é válida dado um intervalo de anos.

Sintaxe

DTV (<exp.N>, <exp.N1>, <exp.N2>)

Argumentos

<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).

Utilização

Retorna verdade (.T.) se <exp.N> está no intervalo.

Útil na consistência de dados digitados.

Exemplos

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. 

Consulte

$DATE, CTOD(), DATE(), DTC(), DTI(), DTOC(), DTOS() e YEAR().

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!