29-01-23, 06:35 PM
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.
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.