Muchas gracias Paquito.
Es una excelente alternativa, habrá alguna otra?, solo para hacer una tormenta de ideas, no porque tu sugerencia me parezca mala.
Saludos
function Fnct_ValFecha(cFecha)
Local lFechaValida
lFechaValida:= iif( Empty(cTod(cFecha)), .f., .t.)
return lFechaValida