سورس تاریخ هجری به شمسی برای وی بی

[تکنیک برتر]

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


Public Function Fa_Day(En_Date As String) As String
Select Case Weekday(En_Date)
Case 1
Fa_Day = "يكشنبه"
Case 2
Fa_Day = "دوشنبه"
Case 3
Fa_Day = "سه شنبه"
Case 4
Fa_Day = "چهارشنبه"
Case 5
Fa_Day = "پنجشنبه"
Case 6
Fa_Day = "جمعه"
Case 7
Fa_Day = "شنبه"
End Select
End Function

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
امیدوارم مورد قبول واقع شود
این قسمت اصلا و عبدا ربطی به قسمت مخصوص وی بی ندارد.
نظر یادتون نره

[AHT]

من قبلا به صاحبان سايت اين كد رو دادم
نميدونم با اين فرق داره يا نه

[Nesta]

سلام آقای تکنیک برتر.
لطف کنید و سر جاش این مقالات یا کد ها یا آموزش ها رو بگذارید من بار 3 وم هست که میگم ولی‌ شما تاپیک و جلوش میزانید ویبی‌ .حالا هر چی‌ هست باید در تاپیک پر طرفدار ویبی‌ این کد ها مثال ها رو بگذارید .متشکر از شما.

[تکنیک برتر]

سلام
با اجازه aht ممنون از گوشزد کرد دوست عزیز
و این تایپک آقای نستا اصلا ربطی به قسمت ویبی نداره

[AHT]

تكنيك برتر خان سعي كن اگه مدي و قالبي براي وي بي داشتي تو اين تاپيك معرفي كن
http://forum.p30world.com/showthread.php?t=15669

[تکنیک برتر]

چشم دوست عزیز

[Nesta]

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

سلام
با اجازه aht ممنون از گوشزد کرد دوست عزیز
و این تایپک آقای نستا اصلا ربطی به قسمت ویبی نداره

[تکنیک برتر]

دوست عزيز درست بخود زدم ربطي به قسمت ويبي نداره
ادامه دادن اين بحث با شما نتيجه اي نداره
خدا حافظ

[sa3er]

سلام؛
آقای تکنيک برتر

متشکر از اين سورس جالب.

**محض اطلاع دوستان ظاهرا سوء تفاهمی پيش اومده. اين سورس مربوط به زبان Visual Basic هست و ارتباطی به vBulletin که دوست عزيز aht اشاره فرمودند ندارد.

[تکنیک برتر]

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

[AHT]

واقعا ببخشيد
من فكر كردم منظور ايشون vBulletin است
پس واقعا جالبه
ممنون

[Nesta]

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

[تکنیک برتر]

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

[اكبر=م]

خيلي ممنون