Criticar erro na data

[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

[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

[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" )

[Netavin]

Bom dia a todos!

Agradeço pelas informações dos amigos.
Foi de grande ajuda.

[]´s

Netavin