Datas em dbase
Validando Strings Data em Dbase III Plus ou Cliper
Se você precisa validar datas armazenadas como caracteres, este artigo pode lhe ajudar.
No dBase Plus, uma data é representada internamente como um número. Quando a função CTOD ( ) é processada, seu argumento é convertido para esse formato interno de data sem a verificação de que seja uma data válida.
Por exemplo, se você digitar
?ctod(“10/35/90”) o dBase vai retornar 11/04/90 (formato mm/dd/aa), 11/04/90.
Sabendo disso, validar um string data é simplesmente uma questão de ver o resultado da função CTOD ( ), convertê-la novamente para string data e comparar o resultado com o string data original. Se forem diferentes, a data é inválid.
Podemos fazer isso com o seguinte bloco de IF:
IF (DTOC(CTOD(dstring)) = dstring) * DATA VALIDA
ELSE
DATA INVÁLIDA
ENDIF
Com o Clipper, esta tarefa pode ser ainda mais simples, pois podemos convertê-la numa função definida pelo usuário. Por exemplo:
FUNCTION VALDATA
PARAMETERS dstring
IF (DTOC(CTOD ( m>dstring)) = m>dstring)
RETURN (.F.)
ELSE
RETURN (.F.)
ENDIF
exemplo de uso da função
IF VALDATA(dstring)
*data valida
ELSE
*DATA INVÁLIDA
ENDIF
Poderíamos simplificar a função ainda mais. Assim:
FUNCTION VALDATA PARAMETERS dstring RETURN (IFF (DTOC (CTOD (dstring)) = dstring, .T,.F.))
Daniel K. Cahoom Extraído da PC Magazine Vol. 10 N.3
