منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Imports System.Globalization

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim gregorianDate As Date = Date.Today
        Label1.Text = "Gregorian Date: " & gregorianDate

        Dim hijriCalendar As New HijriCalendar()
        Dim hijriDate As Integer = hijriCalendar.GetYear(gregorianDate)
        Label2.Text = "Hijri Date: " & hijriCalendar.GetMonth(gregorianDate) & "/" & hijriCalendar.GetDayOfMonth(gregorianDate) & "/" & hijriDate

        Dim copticCalendar As New CopticCalendar()
        Dim copticDate As Integer = copticCalendar.GetYear(gregorianDate)
        Label3.Text = "Coptic Date: " & copticCalendar.GetMonth(gregorianDate) & "/" & copticCalendar.GetDayOfMonth(gregorianDate) & "/" & copticDate
    End Sub
End Class
في مشكله في الكود ده بيظهر هذه الرساله
Error 1 Type 'CopticCalendar' is not defined.

التقويم القبطي ليس ضمن مكتبات التقويم المدرجة بالمكتبة المذكورة (راجع التقويمات المعتمدة للمكتبة من هنا : https://learn.microsoft.com/en-us/dotnet...ew=net-7.0)

يجب عمل Function يدويا للحصول على التقويم القبطي