Solved difference between two dates exactly (1 Viewer)

[FahadTiger]

Hello, my Experts....
I have a function that calculates the number of years, months and days of real service for the employee.. taking into account the leap years in that period.. but I am not sure that it calculates the leap years.. Is there a proven function for this purpose with the long years? ..thanks everyone for the help
my function...
Function DateDiffExact(startDate As Date, endDate As Date) As String
Dim years As Long, months As Long, days As Long
Dim startY As Long, startM As Long, startD As Long
Dim endY As Long, endM As Long, endD As Long
startY = Year(startDate)
startM = Month(startDate)
startD = Day(startDate)
endY = Year(endDate)
endM = Month(endDate)
endD = Day(endDate)
years = endY - startY
months = endM - startM
days = endD - startD
If days < 0 Then
days = days + Day(DateSerial(endY, endM + 1, 0))
months = months - 1
End If
If months < 0 Then
months = months + 12
years = years - 1
End If
DateDiffExact = days & " /" & months & " / " & years

End Function

 

[June7]

Review https://answers.microsoft.com/en-us...ys-in-ms/43ecf4ef-013c-4560-8e4a-1c0dfc7665a9

 

[theDBguy]

Here's another link for you. Hope it helps...

A More Complete DateDiff Function

 

[FahadTiger]

Review https://answers.microsoft.com/en-us...ys-in-ms/43ecf4ef-013c-4560-8e4a-1c0dfc7665a9

OMG.. when I used my function and function of GustavBrock there are 3 days difference when i enter DOB= 12/3/2000 TO date ()

 

[FahadTiger]

i dont kow ... its operating good now