Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'Put user code to initialize the page here If Page.IsPostBack = False Then BINDSEC() Textbox1.Text = Request.QueryString("prompt0") RDate = CDate(Request.QueryString("prompt1")) CCDate = CDate(Request.QueryString("prompt2")) d3 = Request.QueryString("prompt3") d4 = Request.QueryString("prompt4") ' d5 = 1 End If Execute() End Sub
Dim d As DateTime = DateTime.Today Dim gc As GregorianCalendar = New GregorianCalendar() Dim hc As HijriCalendar = New HijriCalendar() Dim dg = New DateTime(d.Year, d.Month, d.Day, gc) Dim dh = New DateTime(d.Year, d.Month, d.Day, hc) Console.WriteLine($"Gregorian date: {dg.ToString("dd MMMM yyyy")} => Hijri date: {dh.ToString("dd MMMM yyyy")}")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)