Trying to write a function but it keeps returning "0" no matter the input

[Girraffa]

Hello folks,
I am trying to learn how to write functions and have been working on a very simple one that should return the age of an animal in years. I have written one but it keeps returning zero when it should return years with decimal points, I am having trouble understanding what I am doing wrong and I am hoping someone can correct me.

Public Function AgeAtDeath( _
            dtBirth As Date, _
            dtDeath As Date) As Double
            Dim CalcAge As Double
            CalcAge = DateDiff("d", dtBirth, dtDeath)
            AgeAtDeath = Round(CalcAge, 1)
End Function

This would be used in a query for a form or report. I was trying this with the immediate window feeding it random dates as follows:
?AgeAtDeath(2/13/2010, 2/15/2018)


but all it gives me is zero. Thank you for your help!

[pbaldy]

You need delimiters:

?AgeAtDeath(#2/13/2010#, #2/15/2018#)
2924

[pbaldy]

To elaborate, without delimiters, it assumes it's a number, so 2 divided by 13 divided by 2010

[isladogs]

I am trying to learn how to write functions and have been working on a very simple one that should return the age of an animal in years.

CalcAge = DateDiff("d", dtBirth, dtDeath)

Which do you want - age in years or days?

[Girraffa]

You need delimiters:

?AgeAtDeath(#2/13/2010#, #2/15/2018#)
2924

Oh my goodness I forgot about those, thank you so much!!!!!

[Girraffa]

CalcAge = DateDiff("d", dtBirth, dtDeath)

Which do you want - age in years or days?

You're right, I want it in years and forgot to add the division part. so this is really what I should have aye? Thank you!!!

Public Function AgeAtDeath( _
            dtBirth As Date, _
            dtDeath As Date) As Double
            Dim CalcAge As Double
            CalcAge = DateDiff("d", dtBirth, dtDeath)
            AgeAtDeath = Round(CalcAge / 365.25, 1)
End Function

[Micron]

Not that it's real important, but you don't really need the Double variable CalcAge...

Public Function AgeAtDeath(dtBirth As Date, dtDeath As Date) As Double
   AgeAtDeath = Round(DateDiff("d", dtBirth, dtDeath), 1)
End Function

Just trying to save the world from using too many characters. Pretty soon we'll run out.

[pbaldy]

Oh my goodness I forgot about those, thank you so much!!!!!

Happy to help!

[Girraffa]

Not that it's real important, but you don't really need the Double variable CalcAge...

Public Function AgeAtDeath(dtBirth As Date, dtDeath As Date) As Double
   AgeAtDeath = Round(DateDiff("d", dtBirth, dtDeath), 1)
End Function

Just trying to save the world from using too many characters. Pretty soon we'll run out.

Thanks! I was wondering about that, it seemed like an unnecessary step.