Hello,

I have the following code which retrieves the age of a person by date differing the current date and the date of birth. The piece of code I have is:

DateVar DNF:= Date({Alunos.DataNascFo});
DateVar Ann := CurrentDate;                  

If (Month(Ann) * 100) + Day (Ann) >=(Month(DNF) *100) + Day (DNF) then
    Year (Ann) - Year(DNF)
Else
    Year (Ann) - Year(DNF) -1


Thing is, I get an error when there is no date of birth inserted in the DataNascFo field because it can't convert "" into a date, so, before the code above, I tried to do:

if {Alunos.DataNascFo} <> "" then

DateVar DNF:= Date({Alunos.DataNascFo});
DateVar Ann := CurrentDate;                  

If (Month(Ann) * 100) + Day (Ann) >=(Month(DNF) *100) + Day (DNF) then
    Year (Ann) - Year(DNF)
Else
    Year (Ann) - Year(DNF) -1

But when it shows a person with no date of birth inserted, it just places the age of birth of the previous person. At the end of the code I tried to do something like "else "" ", but it shows an error.

What can I do to avoid this problem?
Thanks

That code will have the same problem as the one I'm using. It will show an error if there is no date of birth.
The code I'm using is working well, by the way, it is just not checking if the date of birth is ""

It does work, but, like I said, it will show an error if the date of birth is empty.

I did at the beginning
"if {Alunos.DataNascFo} <> "" then"
but but "when it shows a person with no date of birth inserted, it just places the age of birth of the previous person"

go to file