21-03-24, 01:11 PM
وعليكم السلام ورحمة الله وبركاته
كود :
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قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».