تاریخ فارسی

[irantkd]

دوستان سلام:

چجوری میشه تاریخ سیستم رو گرفت و توی برنامه بصورت فارسی نمایش داد .
مثلا 2008 / 7 / 28 رو بگیره و به صورت 7 / 5 / 1387 نمایش بده .

ممنون

[r0ot$harp]

دوستان سلام:

چجوری میشه تاریخ سیستم رو گرفت و توی برنامه بصورت فارسی نمایش داد .
مثلا 2008 / 7 / 28 رو بگیره و به صورت 7 / 5 / 1387 نمایش بده .

ممنون


دوست عزیز لطفا یه جستجو کنید بعد تاپبک بزنید

http://barnamenevis.org/forum/showpost.php?p=587013&postcount=282




باتشکر احسان

[mhsoleimani]

سلام . این کد رو تو یه ماژول قرار بده و بعد dateSH تاریخ فارسی بر می گردونه


Public Function DateSH()

FMonArray = Array(0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 30)
EMonArray = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

W = Array("یک‌شنبه", "دوشنبه", "سه‌شنبه", "چهار‌شنبه", "پنج‌شنبه", "جمعه", "شنبه")
Mon = Array("فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند")
EYear = Year(Date)
EMon = Month(Date)
EDay = Day(Date)

ELeap = 0

If ((EYear Mod 4)) = 0 Then
ELeap = 1
End If

Cnt = EMon - 1
Temp = 0
While Cnt <> 0
If ((Cnt = 2) And (ELeap = 1)) Then
Temp = Temp + 29
Else
Temp = Temp + EMonArray(Cnt)
End If
Cnt = Cnt - 1
Wend

EDayOfYear = Temp + EDay
' Convert to Farsi

Temp = EDayOfYear - 79
If Temp > 0 Then
FYear = EYear - 621
Else
FYear = EYear - 622

If ((FYear Mod 4) = 3) Then
Temp = Temp + 366
Else
Temp = Temp + 365
End If
End If

If (FYear Mod 4) = 3 Then
FLeap = 1
Else
FLeap = 0
End If

Cnt = 1

While ((Temp <> 0) And (Temp > FMonArray(Cnt)))
If Cnt = 12 Then
If (FLeap = 1) Then
Temp = Temp - 30
Else: Temp = Temp - 29
End If
Else: Temp = Temp - FMonArray(Cnt)
End If

Cnt = Cnt + 1
Wend

If Temp <> 0 Then
FMon = Cnt
fDay = Temp
Else
FMon = 12
fDay = 30
End If

DayFarsi = W(Weekday(Date) - 1)

Dim FFDay As String
Dim FFMon As String

If fDay < 10 Then
FFDay = 0 & fDay
Else
FFDay = fDay
End If
If FMon < 10 Then
FFMon = 0 & FMon
Else
FFMon = FMon
End If
DateSH = FYear & "/" & FFMon & "/" & FFDay

End Function

[Mohya_z332]

بهترين ، آسونترين، مطمئن ترين روش استفاده از Shamsi.dll V2 هست.