Code:
If Date.IsLeapYear(Now.Year) Then
MsgBox("true")
Else
MsgBox("false")
End If
Alt:
Code:
Public Function blnLeapYear( _
intYear As Integer) As Boolean
blnLeapYear = False
If intYear Mod 4 = 0 Then
blnLeapYear = True
If intYear Mod 100 = 0 Then
If (intYear Mod 400) _
Then blnLeapYear = False
End If
End If
End Function
'action
if blnLeapYear(Now.year) = true
msgbox("It is leap year")
else
msgbox("It's not leap year")
end if
_____________
Code:
If x >= 0 Then
If y >= 0 Then
msgbox("I -Quadrant")
Else
msgbox("IV-Quadrant")
End If
else
If y >= 0 Then
msgbox("II- Quadrant")
Else
msgbox("III-Quadrant")
End If
End If
@shugi99 Bored so here you go