DTC()

• Propósito
• Sintaxe
• Argumentos
• Utilização
• Exemplos
• Consulte

Propósito

Verificar se uma data é válida, dado um intervalo de anos.

Sintaxe

DTC (<exp.C>, <exp.N1>, <exp.N2>)

Argumentos

<exp.C>	representa uma expressão do tipo cadeia de caracteres no formato dd/mm/aa ou dd/mm/aaaa.
<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.C> é válida.

Útil na consistência de dados digitados.

Se utilizado PIC "@d" e CENTURY OFF o formato é dd/mm/aa, se CENTURY ON o formato é dd/mm/aaaa.

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 = "00/00/00"

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

Consulte

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