[MOHAMMED ALZWI]

السلام عليكم ورحمة الله 
اخوتي الاعضاء كل عام وانتم بخير 

ارجو المساعدة في كود لمعرفة التاريخ الهجري  
بدون تغير التاريخ في الجهاز 


والسلام عليكم ورحمة الله

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته 

كود :

Imports System.Globalization

Public Class Form1

   Public Function GetHijriDate(pDate As DateTime) As String
       Dim ci As CultureInfo = CultureInfo.GetCultureInfo("ar-SA")
       Return pDate.ToString("yyyy/MM/dd", ci)
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Label1.Text = GetHijriDate(Today)
   End Sub

End Class

[MOHAMMED ALZWI]

شكرا جزيلا اخي الكريم