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

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

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

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

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

كود :

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

Taha Okla

MOHAMMED ALZWI