Module Shamsi
Public Function Tarikh() As String
'Define Days'
Dim DArray As New ArrayList(7)
DArray.AddRange(New String() {"يكشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه"})
'Define Months'
Dim MArray As New ArrayList(12)
MArray.AddRange(New String() {"دی", "بهمن", "اسفند", "فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر"})
'Other Variables'
Dim NowYear As Integer = Date.Now.Year
Dim ShamsiYear, Y, K, Z, Day As Integer
Dim Days As Integer = Date.Now.DayOfYear
Dim Rooz As String = DArray(Date.Now.DayOfWeek)
Dim Month As String = ""
K = 79
Z = 365
'---Checking Year---'
Dim Kabiseh As Boolean = False
If (Now.Year - 2001) Mod 4 = 0 Then
Kabiseh = True
End If
If (Now.Year - 2000) Mod 4 = 0 Then
Z = 366
End If
'---End Checking---'
'---Calculating Year---'
If Kabiseh = True Then
If Days > K Then
ShamsiYear = NowYear - 621
Else
ShamsiYear = NowYear - 622
End If
Y = 19
Else
If Days > K Then
ShamsiYear = NowYear - 621
Else
ShamsiYear = NowYear - 622
End If
Y = 20
End If
'---End Calculating---'
'---Calculating Month---'
Select Case Days
Case 1 To Y
'Day'
Month = MArray(0)
Day = Days + 10
If Kabiseh = True Then
Day = Days + 11
End If
Case Y + 1 To Y + 30
'Bahman'
Month = MArray(1)
Day = Days - Y
Case Y + 31 To K
'Esfand'
Month = MArray(2)
Day = Days - (Y + 30)
Case 80 To 110
'Farvardin'
Month = MArray(3)
Day = Days - K
Case 111 To 141
'Ordibehesht'
Month = MArray(4)
Day = Days - 110
Case 142 To 172
'Khordad'
Month = MArray(5)
Day = Days - 141
Case 173 To 203
'Tir
Month = MArray(6)
Day = Days - 172
Case 204 To 234
'Mordad'
Month = MArray(7)
Day = Days - 203
Case 235 To 265
'Shahrivar'
Month = MArray(8)
Day = Days - 234
Case 266 To 295
'Mehr
Month = MArray(9)
Day = Days - 265
Case 296 To 325
'Aban'
Month = MArray(10)
Day = Days - 295
Case 326 To 355
'Azar
Month = MArray(11)
Day = Days - 325
Case 356 To Z
'Day'
Month = MArray(0)
Day = Days - 355
End Select
Dim D As String = "امروز " & Rooz & " " & Day.ToString & " " & Month & " " & ShamsiYear.ToString
Return D
End Function
End Module[/FONT]
