nima898
دوشنبه 04 آبان 1388, 13:56 عصر
سلام
کدی که بتونه کبیسه بودن سال شمسی و میلادی رو تشخیص بده :
Private Sub TextBoxSH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSH.TextChanged
Dim s, s1 As Integer
s = Val(textboxSH.Text)
s1 = s Mod 33
Select Case s1
Case 1, 5, 9, 13, 17, 22, 26, 30
TextBoxKSH.Text = "Kabiseh"
Case Else
TextBoxKSH.Text = "Not Kabiseh"
End Select
End Sub
Private Sub TextBoxM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxM.TextChanged
Dim m As Integer
m = Val(TextBoxM.Text)
If m Mod 400 = 0 Then
TextBoxKM.Text = "Kabiseh"
Else If m Mod 100 = 0 Then
TextBoxKM.Text = "Not Kabiseh"
Else If m Mod 4 = 0 Then
TextBoxKM.Text = "Kabiseh"
Else
TextBoxKM.Text = "Not Kabiseh"
End If
End Sub
کدی که بتونه کبیسه بودن سال شمسی و میلادی رو تشخیص بده :
Private Sub TextBoxSH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSH.TextChanged
Dim s, s1 As Integer
s = Val(textboxSH.Text)
s1 = s Mod 33
Select Case s1
Case 1, 5, 9, 13, 17, 22, 26, 30
TextBoxKSH.Text = "Kabiseh"
Case Else
TextBoxKSH.Text = "Not Kabiseh"
End Select
End Sub
Private Sub TextBoxM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxM.TextChanged
Dim m As Integer
m = Val(TextBoxM.Text)
If m Mod 400 = 0 Then
TextBoxKM.Text = "Kabiseh"
Else If m Mod 100 = 0 Then
TextBoxKM.Text = "Not Kabiseh"
Else If m Mod 4 = 0 Then
TextBoxKM.Text = "Kabiseh"
Else
TextBoxKM.Text = "Not Kabiseh"
End If
End Sub