Gjoreski
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija
Predmet:
Re: Prestupna godina
eve uste edna funkcija i ovaa ja imam koristeno
Preuzmi
Izvorni kôd (Visual Basic):
Public
Function
IsLeapYear(Y
As
Integer
)
IsLeapYear = Month(DateSerial(Y, 2, 29)) = 2
End
Function