zarin_web
شنبه 06 آبان 1385, 20:13 عصر
با سلام به دوستان عزیز
:متعجب: من تازه vb را شروع کرده ام:متعجب:
مشکلی که من با آن مواجه شده ام در رابطه با کد میلادی به شمسی است
من این کد راکه در زیر نوشته ام از vb.net تبدیل به vb کرده ام
مثلاً تاریخ25/11/2006 را تبدیل به 5/11/84 می کند
لطف کنید و کمکم کنید !!!!!!!!خواهش می کنم:گریه: :گریه: :گریه: :گریه:
Dim YEAR, MOUNTH, DAY As Integer
Print Date
YEAR = Mid$(Date, 1, 4)
MOUNTH = Mid$(Date, 6, 2)
DAY = Mid$(Date, 9, 2)
Print YEAR
Print MOUNTH
Print DAY
YEAR = YEAR - 621
If DAY < 78 Then
YEAR = YEAR - 1
If DAY < 19 Then
MOUNTH = 10
days = DAY + 11
Else
If DAY < 50 Then
MOUNTH = 11
days = DAY - 20
Else
MOUNTH = 12
days = DAY - 50
End If
End If
Else
If DAY < 110 Then
MOUNTH = 1
days = DAY - 79
Else
If DAY < 141 Then
MOUNTH = 2
days = DAY - 110
Else
If DAY < 172 Then
MOUNTH = 3
days = DAY - 141
Else
If DAY < 203 Then
MOUNTH = 4
days = DAY - 172
Else
If DAY < 234 Then
MOUNTH = 5
days = DAY - 203
Else
If DAY < 265 Then
MOUNTH = 6
days = DAY - 234
Else
If DAY < 295 Then
MOUNTH = 7
days = DAY - 265
Else
If DAY < 325 Then
MOUNTH = 8
days = DAY - 295
Else
If DAY < 355 Then
MOUNTH = 9
days = DAY - 325
Else
MOUNTH = 10
days = DAY - 355
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
:متعجب: من تازه vb را شروع کرده ام:متعجب:
مشکلی که من با آن مواجه شده ام در رابطه با کد میلادی به شمسی است
من این کد راکه در زیر نوشته ام از vb.net تبدیل به vb کرده ام
مثلاً تاریخ25/11/2006 را تبدیل به 5/11/84 می کند
لطف کنید و کمکم کنید !!!!!!!!خواهش می کنم:گریه: :گریه: :گریه: :گریه:
Dim YEAR, MOUNTH, DAY As Integer
Print Date
YEAR = Mid$(Date, 1, 4)
MOUNTH = Mid$(Date, 6, 2)
DAY = Mid$(Date, 9, 2)
Print YEAR
Print MOUNTH
Print DAY
YEAR = YEAR - 621
If DAY < 78 Then
YEAR = YEAR - 1
If DAY < 19 Then
MOUNTH = 10
days = DAY + 11
Else
If DAY < 50 Then
MOUNTH = 11
days = DAY - 20
Else
MOUNTH = 12
days = DAY - 50
End If
End If
Else
If DAY < 110 Then
MOUNTH = 1
days = DAY - 79
Else
If DAY < 141 Then
MOUNTH = 2
days = DAY - 110
Else
If DAY < 172 Then
MOUNTH = 3
days = DAY - 141
Else
If DAY < 203 Then
MOUNTH = 4
days = DAY - 172
Else
If DAY < 234 Then
MOUNTH = 5
days = DAY - 203
Else
If DAY < 265 Then
MOUNTH = 6
days = DAY - 234
Else
If DAY < 295 Then
MOUNTH = 7
days = DAY - 265
Else
If DAY < 325 Then
MOUNTH = 8
days = DAY - 295
Else
If DAY < 355 Then
MOUNTH = 9
days = DAY - 325
Else
MOUNTH = 10
days = DAY - 355
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If