Gjoreski
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija
Predmet:
Re: Prestupna godina
Preuzmi
Izvorni kôd (Visual Basic):
Private
Sub
txtData_AfterUpdate()
Dim
Godina
As
Integer
If
Tip_Godina(Year(Me.txtData))
Then
MsgBox
"Vnesenata godina odgovara"
Else
MsgBox
"Vnesenata godina ne odgovara"
End
If
End
Sub
Preuzmi
Izvorni kôd (Visual Basic):
Function
Tip_Godina(Godina
As
Integer
)
As
Boolean
If
(Godina
Mod
400 = 0)
Or
((Godina
Mod
4 = 0)
And
(Godina
Mod
100 <> 0))
Then
Tip_Godina =
True
Else
Tip_Godina =
False
End
If
End
Function
Ovaj post je ureden
1
puta. Posljednja izmjena 09.06.2014 16:30 od strane Gjoreski.