Prikazi cijelu temu 09.06.2014 16:29
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Prestupna godina
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub txtData_AfterUpdate()
  2.  
  3.     Dim Godina As Integer
  4.    
  5.     If Tip_Godina(Year(Me.txtData)) Then
  6.         MsgBox "Vnesenata godina odgovara"
  7.     Else
  8.         MsgBox "Vnesenata godina ne odgovara"
  9.     End If
  10.  
  11.  
  12.  
  13. End Sub
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Tip_Godina(Godina As Integer) As Boolean
  2.     If (Godina Mod 400 = 0) Or ((Godina Mod 4 = 0) And (Godina Mod 100 <> 0)) Then
  3.         Tip_Godina = True
  4.     Else
  5.         Tip_Godina = False
  6.     End If
  7. End Function
Ovaj post je ureden 1 puta. Posljednja izmjena 09.06.2014 16:30 od strane Gjoreski.