تبدیل شمسی به میلادی و برعکس

[بابک زواری]

یکی از دوستان راجع به تبدیل میلادی به شمسی خواسته بود که کدی در اینباره براشون بذارم اینجا البته من تمام تبدیلها رو براشون گذاشتم

تبدیل تاریخ میلادی با فرمت mm/dd/yyyy به شمسی



Public Function Fa_Date(En_Date As String) As String
Dim The_Select As Integer
Dim The_Year As Integer
Dim The_Month As Integer
Dim The_Day As Integer
The_Year = CInt(Mid(En_Date, 7, 4))
The_Month = CInt(Mid(En_Date, 1, 2))
The_Day = CInt(Mid(En_Date, 4, 2))

If (The_Year Mod 4 = 0) Then
The_Select = 1
Else
The_Select = 2
End If

If ((The_Year - 1) Mod 4 = 0) Then
The_Select = 3
End If

If The_Select = 1 Then
'------------------------------------------------------
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 10
The_Month = 10
The_Year = The_Year - 622
Case 21 To 31: The_Day = The_Day - 20
The_Month = 11
The_Year = The_Year - 622
End Select
Case 2: Select Case The_Day
Case 1 To 19: The_Day = The_Day + 11
The_Month = 11
The_Year = The_Year - 622
Case 20 To 29: The_Day = The_Day - 19
The_Month = 12
The_Year = The_Year - 622
End Select
Case 3: Select Case The_Day
Case 1 To 19: The_Day = The_Day + 10
The_Month = 12
The_Year = The_Year - 622
Case 20 To 31: The_Day = The_Day - 19
The_Month = 1
The_Year = The_Year - 621
End Select
Case 4: Select Case The_Day
Case 1 To 19: The_Day = The_Day + 12
The_Month = 1
The_Year = The_Year - 621
Case 20 To 30: The_Day = The_Day - 19
The_Month = 2
The_Year = The_Year - 621
End Select
Case 5: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 11
The_Month = 2
The_Year = The_Year - 621
Case 21 To 31: The_Day = The_Day - 20
The_Month = 3
The_Year = The_Year - 621
End Select
Case 6: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 11
The_Month = 3
The_Year = The_Year - 621
Case 21 To 30: The_Day = The_Day - 20
The_Month = 4
The_Year = The_Year - 621
End Select
Case 7: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 4
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 5
The_Year = The_Year - 621
End Select
Case 8: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 5
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 6
The_Year = The_Year - 621
End Select
Case 9: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 6
The_Year = The_Year - 621
Case 22 To 30: The_Day = The_Day - 21
The_Month = 7
The_Year = The_Year - 621
End Select
Case 10: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 9
The_Month = 7
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 8
The_Year = The_Year - 621
End Select
Case 11: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 10
The_Month = 8
The_Year = The_Year - 621
Case 21 To 30: The_Day = The_Day - 20
The_Month = 9
The_Year = The_Year - 621
End Select
Case 12: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 10
The_Month = 9
The_Year = The_Year - 621
Case 21 To 31: The_Day = The_Day - 20
The_Month = 10
The_Year = The_Year - 621
End Select
End Select
'------------------------------------------------------
End If

If The_Select = 2 Then
'------------------------------------------------------
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 10
The_Month = 10
The_Year = The_Year - 622
Case 21 To 31: The_Day = The_Day - 20
The_Month = 11
The_Year = The_Year - 622
End Select
Case 2: Select Case The_Day
Case 1 To 19: The_Day = The_Day + 11
The_Month = 11
The_Year = The_Year - 622
Case 19 To 28: The_Day = The_Day - 19
The_Month = 12
The_Year = The_Year - 622
End Select
Case 3: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 9
The_Month = 12
The_Year = The_Year - 622
Case 21 To 31: The_Day = The_Day - 20
The_Month = 1
The_Year = The_Year - 621
End Select
Case 4: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 11
The_Month = 1
The_Year = The_Year - 621
Case 21 To 30: The_Day = The_Day - 20
The_Month = 2
The_Year = The_Year - 621
End Select
Case 5: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 2
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 3
The_Year = The_Year - 621
End Select
Case 6: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 3
The_Year = The_Year - 621
Case 22 To 30: The_Day = The_Day - 21
The_Month = 4
The_Year = The_Year - 621
End Select
Case 7: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 4
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 5
The_Year = The_Year - 621
End Select
Case 8: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 5
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 6
The_Year = The_Year - 621
End Select
Case 9: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 6
The_Year = The_Year - 621
Case 23 To 30: The_Day = The_Day - 22
The_Month = 7
The_Year = The_Year - 621
End Select
Case 10: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 8
The_Month = 7
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 8
The_Year = The_Year - 621
End Select
Case 11: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 9
The_Month = 8
The_Year = The_Year - 621
Case 22 To 30: The_Day = The_Day - 21
The_Month = 9
The_Year = The_Year - 621
End Select
Case 12: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 9
The_Month = 9
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 10
The_Year = The_Year - 621
End Select
End Select
'------------------------------------------------------
End If

If The_Select = 3 Then
'------------------------------------------------------
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 19: The_Day = The_Day + 11
The_Month = 10
The_Year = The_Year - 622
Case 20 To 31: The_Day = The_Day - 19
The_Month = 11
The_Year = The_Year - 622
End Select
Case 2: Select Case The_Day
Case 1 To 18: The_Day = The_Day + 12
The_Month = 11
The_Year = The_Year - 622
Case 19 To 28: The_Day = The_Day - 18
The_Month = 12
The_Year = The_Year - 622
End Select
Case 3: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 10
The_Month = 12
The_Year = The_Year - 622
Case 21 To 31: The_Day = The_Day - 20
The_Month = 1
The_Year = The_Year - 621
End Select
Case 4: Select Case The_Day
Case 1 To 20: The_Day = The_Day + 11
The_Month = 1
The_Year = The_Year - 621
Case 21 To 30: The_Day = The_Day - 20
The_Month = 2
The_Year = The_Year - 621
End Select
Case 5: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 2
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 3
The_Year = The_Year - 621
End Select
Case 6: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 10
The_Month = 3
The_Year = The_Year - 621
Case 22 To 30: The_Day = The_Day - 21
The_Month = 4
The_Year = The_Year - 621
End Select
Case 7: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 4
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 5
The_Year = The_Year - 621
End Select
Case 8: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 5
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 6
The_Year = The_Year - 621
End Select
Case 9: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 9
The_Month = 6
The_Year = The_Year - 621
Case 23 To 30: The_Day = The_Day - 22
The_Month = 7
The_Year = The_Year - 621
End Select
Case 10: Select Case The_Day
Case 1 To 22: The_Day = The_Day + 8
The_Month = 7
The_Year = The_Year - 621
Case 23 To 31: The_Day = The_Day - 22
The_Month = 8
The_Year = The_Year - 621
End Select
Case 11: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 9
The_Month = 8
The_Year = The_Year - 621
Case 22 To 30: The_Day = The_Day - 21
The_Month = 9
The_Year = The_Year - 621
End Select
Case 12: Select Case The_Day
Case 1 To 21: The_Day = The_Day + 9
The_Month = 9
The_Year = The_Year - 621
Case 22 To 31: The_Day = The_Day - 21
The_Month = 10
The_Year = The_Year - 621
End Select
End Select
'------------------------------------------------------
End If

Fa_Date = Format(CStr(The_Year), "0000") & "/" & _
Format(CStr(The_Month), "00") & "/" & _
Format(CStr(The_Day), "00")
End Function







تبدیل تاریخ شمسی به میلادی





Public Function En_Date(Fa_Date As String) As String
Dim The_Year As Integer
Dim The_Month As Integer
Dim The_Day As Integer
The_Year = CInt(Mid(Fa_Date, 1, 4))
The_Month = CInt(Mid(Fa_Date, 6, 2))
The_Day = CInt(Mid(Fa_Date, 9, 2))

Dim The_Select As Integer
The_Select = The_Year Mod 4

'------------------------------------------------------------------------------------------------------------------------
If The_Select = 0 Then 'Like : 1360, 1364, 1368, 1372, 1376, 1380, 1384, ...
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 3
The_Year = The_Year + 621
Case 12 To 31: The_Day = The_Day - 11
The_Month = 4
The_Year = The_Year + 621
End Select
Case 2: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 20
The_Month = 4
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 5
The_Year = The_Year + 621
End Select
Case 3: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 5
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 6
The_Year = The_Year + 621
End Select
Case 4: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 6
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 7
The_Year = The_Year + 621
End Select
Case 5: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 7
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 8
The_Year = The_Year + 621
End Select
Case 6: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 8
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 9
The_Year = The_Year + 621
End Select
Case 7: Select Case The_Day
Case 1 To 8: The_Day = The_Day + 22
The_Month = 9
The_Year = The_Year + 621
Case 9 To 30: The_Day = The_Day - 8
The_Month = 10
The_Year = The_Year + 621
End Select
Case 8: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 10
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 11
The_Year = The_Year + 621
End Select
Case 9: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 11
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 12
The_Year = The_Year + 621
End Select
Case 10: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 12
The_Year = The_Year + 621
Case 11 To 30: The_Day = The_Day - 10
The_Month = 1
The_Year = The_Year + 622
End Select
Case 11: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 1
The_Year = The_Year + 622
Case 12 To 30: The_Day = The_Day - 11
The_Month = 2
The_Year = The_Year + 622
End Select
Case 12: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 19
The_Month = 2
The_Year = The_Year + 622
Case 10 To 30: The_Day = The_Day - 9
The_Month = 3
The_Year = The_Year + 622
End Select
End Select
End If
'------------------------------------------------------------------------------------------------------------------------
If The_Select = 1 Then 'Like : 1361, 1365, 1369, 1373, 1377, 1381, 1385, ...
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 3
The_Year = The_Year + 621
Case 12 To 31: The_Day = The_Day - 11
The_Month = 4
The_Year = The_Year + 621
End Select
Case 2: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 20
The_Month = 4
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 5
The_Year = The_Year + 621
End Select
Case 3: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 22
The_Month = 5
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 6
The_Year = The_Year + 621
End Select
Case 4: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 6
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 7
The_Year = The_Year + 621
End Select
Case 5: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 7
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 8
The_Year = The_Year + 621
End Select
Case 6: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 8
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 9
The_Year = The_Year + 621
End Select
Case 7: Select Case The_Day
Case 1 To 8: The_Day = The_Day + 22
The_Month = 9
The_Year = The_Year + 621
Case 9 To 30: The_Day = The_Day - 8
The_Month = 10
The_Year = The_Year + 621
End Select
Case 8: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 10
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 11
The_Year = The_Year + 621
End Select
Case 9: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 11
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 12
The_Year = The_Year + 621
End Select
Case 10: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 12
The_Year = The_Year + 621
Case 11 To 30: The_Day = The_Day - 10
The_Month = 1
The_Year = The_Year + 622
End Select
Case 11: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 1
The_Year = The_Year + 622
Case 12 To 30: The_Day = The_Day - 11
The_Month = 2
The_Year = The_Year + 622
End Select
Case 12: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 19
The_Month = 2
The_Year = The_Year + 622
Case 10 To 30: The_Day = The_Day - 9
The_Month = 3
The_Year = The_Year + 622
End Select
End Select
End If
'------------------------------------------------------------------------------------------------------------------------
If The_Select = 2 Then 'Like : 1362, 1366, 1370, 1374, 1378, 1382, 1386, ...
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 3
The_Year = The_Year + 621
Case 12 To 31: The_Day = The_Day - 11
The_Month = 4
The_Year = The_Year + 621
End Select
Case 2: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 20
The_Month = 4
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 5
The_Year = The_Year + 621
End Select
Case 3: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 5
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 6
The_Year = The_Year + 621
End Select
Case 4: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 6
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 7
The_Year = The_Year + 621
End Select
Case 5: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 7
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 8
The_Year = The_Year + 621
End Select
Case 6: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 8
The_Year = The_Year + 621
Case 10 To 31: The_Day = The_Day - 9
The_Month = 9
The_Year = The_Year + 621
End Select
Case 7: Select Case The_Day
Case 1 To 8: The_Day = The_Day + 22
The_Month = 9
The_Year = The_Year + 621
Case 9 To 30: The_Day = The_Day - 8
The_Month = 10
The_Year = The_Year + 621
End Select
Case 8: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 22
The_Month = 10
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 11
The_Year = The_Year + 621
End Select
Case 9: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 11
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 12
The_Year = The_Year + 621
End Select
Case 10: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 12
The_Year = The_Year + 621
Case 11 To 30: The_Day = The_Day - 10
The_Month = 1
The_Year = The_Year + 622
End Select
Case 11: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 1
The_Year = The_Year + 622
Case 12 To 30: The_Day = The_Day - 11
The_Month = 2
The_Year = The_Year + 622
End Select
Case 12: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 19
The_Month = 2
The_Year = The_Year + 622
Case 11 To 30: The_Day = The_Day - 10
The_Month = 3
The_Year = The_Year + 622
End Select
End Select
End If
'------------------------------------------------------------------------------------------------------------------------
If The_Select = 3 Then 'Like : 1363, 1367, 1371, 1375, 1379, 1383, 1387, ...
Select Case The_Month
Case 1: Select Case The_Day
Case 1 To 12: The_Day = The_Day + 19
The_Month = 3
The_Year = The_Year + 621
Case 13 To 31: The_Day = The_Day - 12
The_Month = 4
The_Year = The_Year + 621
End Select
Case 2: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 19
The_Month = 4
The_Year = The_Year + 621
Case 12 To 31: The_Day = The_Day - 11
The_Month = 5
The_Year = The_Year + 621
End Select
Case 3: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 5
The_Year = The_Year + 621
Case 12 To 31: The_Day = The_Day - 11
The_Month = 6
The_Year = The_Year + 621
End Select
Case 4: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 20
The_Month = 6
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 7
The_Year = The_Year + 621
End Select
Case 5: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 7
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 8
The_Year = The_Year + 621
End Select
Case 6: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 8
The_Year = The_Year + 621
Case 11 To 31: The_Day = The_Day - 10
The_Month = 9
The_Year = The_Year + 621
End Select
Case 7: Select Case The_Day
Case 1 To 9: The_Day = The_Day + 21
The_Month = 9
The_Year = The_Year + 621
Case 10 To 30: The_Day = The_Day - 9
The_Month = 10
The_Year = The_Year + 621
End Select
Case 8: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 21
The_Month = 10
The_Year = The_Year + 621
Case 11 To 30: The_Day = The_Day - 10
The_Month = 11
The_Year = The_Year + 621
End Select
Case 9: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 20
The_Month = 11
The_Year = The_Year + 621
Case 11 To 30: The_Day = The_Day - 10
The_Month = 12
The_Year = The_Year + 621
End Select
Case 10: Select Case The_Day
Case 1 To 11: The_Day = The_Day + 20
The_Month = 12
The_Year = The_Year + 621
Case 12 To 30: The_Day = The_Day - 11
The_Month = 1
The_Year = The_Year + 622
End Select
Case 11: Select Case The_Day
Case 1 To 12: The_Day = The_Day + 19
The_Month = 1
The_Year = The_Year + 622
Case 13 To 30: The_Day = The_Day - 12
The_Month = 2
The_Year = The_Year + 622
End Select
Case 12: Select Case The_Day
Case 1 To 10: The_Day = The_Day + 18
The_Month = 2
The_Year = The_Year + 622
Case 11 To 30: The_Day = The_Day - 10
The_Month = 3
The_Year = The_Year + 622
End Select
End Select
End If
'------------------------------------------------------------------------------------------------------------------------
En_Date = Format(CStr(The_Month), "00") & "/" & _
Format(CStr(The_Day), "00") & "/" & _
Format(CStr(The_Year), "0000")
End Function

[hadi2345]

آقای زواری ممنون . ولی کدش یه کم زیاد نشده ؟ در ضمن این دوستمون چرا از OCX های آماده استفاده نمیکنه ؟ ( OCX خود شما یا آقای مرادی و ...)

[mohsengrisly]

سلام
از لطف شما ممنونم جناب زواری :موفق:
البته من یه تبدیل میلادی به شمسی خیلی کوتاه نوشتم
اما با عکس اون مشکل داشتم :sad2:


در ضمن این دوستمون چرا از OCX های آماده استفاده نمیکنه

هادی جون احتمالا این دوستمون می خواد یه کار خاص انجام بده
که به کد نیاز داشته :mrgreen: :mrgreen: :mrgreen:

[hadi2345]

یا شاید هم جنبه آموزشی کد .... :)
موفق باشی آقا محسن .

[mohsengrisly]

یا شاید هم جنبه آموزشی کد ....
بعید می دونم
اما صد در صد با این کد همه توی select case استاد میشن :mrgreen:
خیلی طولانیه اما از شما ممنونم جناب زواری
اقا هادی شما هم فراموش نکنید حتی اگر توی یه زمینه استاد هم باشی بازم نکته و ریزه کاری برای یاد گیری هست استاد عزیز
******این خط رو هم بی خیال *********
چیزی که عیان است چه حاجت به بیان ... :wise1: :موفق:
در اخر بازم از لطف اقا بابک ممنونم و
همینطور شما هادی جان که هم باعث کمک خیلی خیلی زیادی به من شدید هم باعث افزایش پست خودتان
:mrgreen:
اینو شوخی کردما ناراحت نشی :mrgreen: :موفق:

[hadi2345]

ای بابا محسن جون شما که پاک آبروی ما رو بردی .... :wink: موفق باشید ( دیدید، الکی الکی یه پست هم اضافه کردم :mrgreen: ) همش شوخی بود . موفق باشی.

[بابک زواری]

اقا محسن شرمنده که اینقدر پیچیده شد اما مطمئن باش که درسته

[mohsengrisly]

از شما خیلی ممنونم
اقا شما کد هاتون هم مثل خودتونه کار درست کار درست
انشا الله بیای شیراز خودم ببرمت یک ماه همه جاهای توپ شیراز رو نشونت بدم (جاهای تک منظورم بودا )
:mrgreen: :wink: :موفق:

[PalizeSoftware]

ساده‌ترین و مطمئن‌ترین راه برای تبدیل تاریخ‌های میلادی به شمسی و بلعکس از تابع APIی که در نرم‌افزار فارسی‌ساز شتاب قرار دارد استفاده کنید چون هم استفاده از این بخش رایگان است و هم بدون خطا و بدرستی انجام می‌دهد. بطور خلاصه این فایل را دانلود کنید تا متوجه منظور من شوید. جا دارد از شرکت سازنده که این ابزار را بطور رایگان ارائه داده تشکر کنیم:

[بابک زواری]

وقتی سورس حاضر و آماده هست من خودم ریسک نمیکنم به برنامه ایی تکیه کنم که اگر هم روزی بنا به دلیلی از کار هم نیافته بازم اگر مشکل داشته باشه معلوم نیست شرکت نسخه بدون مشکل رو عرضه کنه یا نه

[PalizeSoftware]

بابک خان من مدتهاست با این تابع دارم کار می‌کنم بدون مشکل هم هست
اکثر سورس‌هایی که من تا به امروز دیدم یا یک روز به عقب میرند یا به جلو
من از این تابع دفاع نمی‌کنم ولی قابل اعتماد دیدمش که مطرح کردم. اگه روزی برنامه من مشکل پیدا کرد اونقدر همت دارم تا دست بکار بشم و یک قطعه کد بدون مشکل بنویسم. سرم هم بدجوری برای مشکل درد می‌کنه.
:sunglass:

[بابک زواری]

اگه روزی برنامه من مشکل پیدا کرد اونقدر همت دارم تا دست بکار بشم و یک قطعه کد بدون مشکل بنویسم
سعی کن هیچ وقت دچار مشکل نشی که بعدا بخوای حل کنی ؛ ثانیا اینجا بقدر کافی کد تبدیل گذاشتیم از همین حالا یکی برای برنامه ات بنویس و خیال خودت رو راحت کن مسلما وقتی برنامه شما به اون برنامه وابسته باشه موقع انتشار شما باید اون رو هم نصب کنید ولی وقتی این کار رو خودتون انجام بدید هم از این وابستگی رها میشید و هم کلاس کارتون میره بالا و هم خیالتون راحت میشه.
من هم چوب این کار رو خوردم نرم افزاری با حدود دو تا سه هزار مشتری که دقیقا وابسته بود به یک تابع دیگه از یک نرم افزار دیگه ؛ که وقتی اون نرم افزار دچار مشکل شد ( یا قبلا تاریخ انقضا داشت ) اولا اون شرکت باهزینه بالا برای رفع مشکل حاضر بود کار انجام بده و دوما تا مشکل رو برطرف کنم و تحویل این همه مشتری ناراضی بدم خودت باید حساب کنی چه کشیدم.
من فقط خواستم این تجربه تلخ رو بهت بگم که هم بعدا دچار مشکل نشی و هم ارزش و اعتبارت خدشه دار نشه.

[PalizeSoftware]

از راهنمایی شما بی‌نهایت ممنون.
:تشویق:

[وفایی]

بسیار سفر باید تا پخته شود خامی
از اینکه تجربیات خود را در اختیار بقیه می ذارید ممنون
خدا حفظتون کنه

[rezaTavak]

سلام

البته می بخشید که من بی مقدمه وارد بحث شما شدم اما کدی که نوشته شده خیلی طولانی است. و به نظر من کدی که تبدیل به ژولیوسی و برعکس کند هم مطمئن و هم دقیق است. و هم رنج بالایی را پوشش می دهد و هم برای جمع و تفریق تاریخ و عدد بدرد می خورد.


در مورد اینکه از چیزی مثل شتاب استفاده بشه باید گفت که اگر استفاده نشه از چندین لحاظ بهتره:
1- سرعت اجرا
2- قدرت در تغییر
3- با توجه به اینکه کد وجود ندارد از خطاهای احتمالی آگاه نیستید و...