format a cell to accept a date or a whole number

I need the cell to accept a whole number as an age or date of birth

Data>Validation>Custom. Formula: =AND(A1>0,A1<TODAY())

--
Kind regards,

Niek Otten

"trick95" <[email protected]> wrote in message
news:[email protected]...
>I need the cell to accept a whole number as an age or date of birth