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

[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

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