22-06-24, 09:05 PM
استخدم الدالة التالية لتعديل التاريخ من عربي لشمسي ..
كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox2.Text = GetSunDate(Today.Date) ' المدخل يجب أن يكون من نوع تاريخ
End Sub
Public Function GetSunDate(pDate As DateTime) As String
Dim ci As CultureInfo = CultureInfo.GetCultureInfo("en-AE")
Return pDate.ToString("yyyy/MM/dd", ci)
End Functionقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».