16-07-20, 09:59 PM
17-07-20, 06:42 PM
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ar As CultureInfo = New CultureInfo("AR-SA")
Thread.CurrentThread.CurrentCulture = Ar
Ar.DateTimeFormat.Calendar = New HijriCalendar
Ar.NumberFormat.DigitSubstitution = DigitShapes.NativeNational
MsgBox(Format(Date.Now, "dddd dd MMMM yyyy"))
End Subكود :
Imports System.Threading
Imports System.Globalization