ایجاد یک تقویم با تاریخ شمسی و میلادی و قمری

[mohsenhas]

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

یکشنبه
۲۸ خرداد ۱۳۹۶
٢٤ رمضان ١٤٣٨
18 June 2017


تشکر ویژه از شما عزیزان.

[Tekyegah]

سلام
میلادی رو که سیستم خودش میده ...
اما برای تاریخ خودمون من از این کلاس استفاده میکنم :



Function Datelong() As String
Dim TimeString As DateTime = DateAndTime.Now()
Dim Intdiffrenttime As String = "+3.5"
If Val(Datesal("mah")) < 7 Then
Intdiffrenttime = "+4.5"
End If
If Val(Datesal("mah")) = 6 And Val(Datesal("roz")) = 31 Then
Intdiffrenttime = "+3.5"
End If
Dim theUTCTime As DateTime
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
theUTCTime = localZone.ToUniversalTime(TimeString)
theUTCTime = theUTCTime.AddHours(Intdiffrenttime)
fary = far30.GetYear(theUTCTime)
farm = far30.GetMonth(theUTCTime)
fard = far30.GetDayOfMonth(theUTCTime)
fardw = far30.GetDayOfWeek(theUTCTime)
Dim Saat As String = far30.GetHour(theUTCTime)
Dim Daghighee As String = far30.GetMinute(theUTCTime)
'Dim Saat As String = DateAndTime.Now.Hour.ToString
'Dim Daghighee As String = DateAndTime.Now.Minute.ToString
'-----
If farm = "1" Then
farm = "فروردین"
End If
If farm = "2" Then
farm = "اردیبهشت"
End If
If farm = "3" Then
farm = "خرداد"
End If
If farm = "4" Then
farm = "تیر"
End If
If farm = "5" Then
farm = "مرداد"
End If
If farm = "6" Then
farm = "شهریور"
End If
If farm = "7" Then
farm = "مهر"
End If
If farm = "8" Then
farm = "آبان"
End If
If farm = "9" Then
farm = "آذر"
End If
If farm = "10" Then
farm = "دی"
End If
If farm = "11" Then
farm = "بهمن"
End If
If farm = "12" Then
farm = "اسفند"
End If

'-----
If fardw = "6" Then
fardw = "شنبه"
End If
If fardw = "0" Then
fardw = "یکشنبه"
End If
If fardw = "1" Then
fardw = "دوشنبه"
End If
If fardw = "2" Then
fardw = "سه شنبه"
End If
If fardw = "3" Then
fardw = "چهارشنبه"
End If
If fardw = "4" Then
fardw = "پنج شنبه"
End If
If fardw = "5" Then
fardw = "جمعه"
End If
'-----
Return (fardw + " ، " + fard + " " + farm + " " + fary + " ، ساعت " + Saat + ":" + Daghighee)
End Function

تو یه کلاس بذارش و از صفحه هایی که میخوای صداش بزن