Calculating my days increment to 2 problem..

See more:

VB

hi
my days till has the problem..since i enter 1 year 3months and 1 day...it should be 456..instead of 1day it gives me 3 days like it increment by 2,equal to 458days. it is the same for Months and days.Years and Days it gives correct output but to include all(year,months, days,) it gives the wrong result as well..i prefer the result for days not work perfectly

Public Function RaceDate(length  As Integer ) As String

              dim year As string=0
              dim month As string=0
              dim day As string=0
              dim ReturnString As string

ReturnString=""

If length = 0 then
Return String.Empty
end if

if length >= 365
year=cstr((Math.Floor (length / 365)))
length  =(length  Mod 365)

end if

If length >= 30 AndAlso length < 365 Then
month =cstr((Math.Floor(length / 30 )))
length  =(length  Mod 30)


end if

if length < 30 Then
day =cstr(length)
End If

If cint(year) >0
ReturnString= year+"  Years  "

End if

If cint(month) >0

ReturnString= ReturnString +month+" Months "

End if

If cint(day) >0

ReturnString = ReturnString+day+ " Days "

End if

Return (ReturnString)

End Function

thanks in advance