rule: every year divisible by 4 has a leap day added, but, years ending in 00 don't have leap days added, but years where the first 2 digits are divisible by 4 have a leap day added.
I joined AT.
Where has the time gone?
:awe:
I was with you right up until you started using numbers.
Public Function DaysInYear(iYear As Long)
Dim Century As Integer
Dim Years As Integer
Century = Left(iYear, 2)
Years = Right(iYear, 2)
If Century Mod 4 = 0 Then
If Years = 0 Then
DaysInYear = 366
ElseIf Years Mod 4 = 0 Then
DaysInYear = 366
Else
DaysInYear = 365
End If
Else
If Years = 0 Then
DaysInYear = 365
ElseIf Years Mod 4 = 0 Then
DaysInYear = 366
Else
DaysInYear = 365
End If
End If
End Function
4 years? didn't you say you were leaving on your 4th anniversary?
6 leap years wtf.
the year 2100 will NOT be a leap year
so you got that going for you, which is nice
Highly unlikely any of us will be around to see it.
World will likely either be bots or nuked in 2100.@T_Yamamoto has a chance! and maybe @TridenT too.
one of them better log in here on february 29th 2100 and bump this thread