Página 1 de 1
Criticar erro na data
Enviado: 19 Ago 2010 18:38
por Netavin
Boa tarde caros amigos!
Gostaria de complementar a linha de código abaixo, para que alertasse o operador da necessidade de informar uma data dentro do "range":
@ l,c GET vbaix Range dBegin,Date()
Agradeço antecipadamente.
[]´s
Netavin
Re: Criticar erro na data
Enviado: 19 Ago 2010 19:51
por janio
Em vez do Range, use uma função de validação!
@ l,c GET vbaix Valid ValidaData(vbaix)
Function ValidaData(d)
If d < dBegin
alert("DATA NÃO PODE SER MENOR QUE...")
Return .f.
Endif
If d > DATE()
Alert("DATA NÃO PODE SER MAIOR QUE A ATUAL")
Return f.
Endif
Return
Re: Criticar erro na data
Enviado: 19 Ago 2010 20:21
por alxsts
Olá!
Pode ser assim também:
Código: Selecionar todos
LOCAL dDate := Date(), dStart := Date() - 30, dFinish := Date(), GetList := {}
@nLin,nCol Say "Data:" Get dDate Pict "@E";
VALID If( dDate >= dStart .And. dDate <= dFinish, .T.,;
Valtype( Alert( "Data inválida." ) ) == "U" )
Re: Criticar erro na data
Enviado: 20 Ago 2010 09:39
por Netavin
Bom dia a todos!
Agradeço pelas informações dos amigos.
Foi de grande ajuda.
[]´s
Netavin