Hola! lo que puedes hacer es un DecodeDate a lafecha arrojada por el Date(), y luego compararla con el formato indicado.WORD año, mes, dia;
DecodeDate(Date(), año, mes, dia);
Si usas un Query, lo puedes llenar dinamicamente.
Espero te sirva de algo.
Felices dias.