(03-02-17, 05:20 AM)silverlight كتب : يمكنك ان تقرأ التاريخ بشكل عادي جدا ثم تستخدمه و باستخدام  String.Format تعيد كتابة التاريخ بالصيغة التي تريدها

(03-02-17, 06:41 AM)silverlight كتب :

PHP كود :

 Dim dt As DateTime = DateTime.Now
        Dim dateString As String = String.Concat(New String() {dt.Month.ToString(CultureInfo.CurrentCulture), "/", dt.Day.ToString(CultureInfo.CurrentCulture), "/", dt.Year.ToString(CultureInfo.CurrentCulture)})
        Dim timeString As String = String.Concat(New String() {dt.Hour.ToString(CultureInfo.CurrentCulture), "/", dt.Minute.ToString(CultureInfo.CurrentCulture), "/", dt.Second.ToString(CultureInfo.CurrentCulture)})

        Dim datetimeString As String = timeString & " " & dateString

        Me.TextBox1.Text = datetimeString 


هذا نفس الحل أعلاه بأسلوب مختلف

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dt As DateTime = DateTime.Now
        Dim bidaya As New bidayaaDateTirm With {.Year = dt.Year, .Month = dt.Month, .Day = dt.Day, .Hour = dt.Hour, .Minute = dt.Minute, .Second = dt.Second}
        Dim dateString As String = String.Concat(New String() {bidaya.Month.ToString(CultureInfo.CurrentCulture), "/", bidaya.Day.ToString(CultureInfo.CurrentCulture), "/", bidaya.Year.ToString(CultureInfo.CurrentCulture)})
        Dim timeString As String = String.Concat(New String() {bidaya.Hour.ToString(CultureInfo.CurrentCulture), "/", bidaya.Minute.ToString(CultureInfo.CurrentCulture), "/", bidaya.Second.ToString(CultureInfo.CurrentCulture)})

        Dim datetimeString As String = timeString & " " & dateString
        Dim result As String = datetimeString
    End Sub

End Class

Public Structure bidayaaDateTirm

    Public Year As Integer
    Public Month As Integer
    Public Day As Integer
    Public Hour As Integer
    Public Minute As Integer
    Public Second As Integer

End Structure 


(05-02-17, 08:12 PM)عبد الرحمن كتب : جرب هذا الكود
       Try
           TextBox2.Text = ""
           Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
           Dim dt = CDate(TextBox1.Text)
           TextBox2.Text = dt.ToString("dd/MM/yyyy HH:mms")
       Catch ex1 As Exception
       End Try


واذا تتعامل مع الهجري غير ar-eg بدالها ar-sa

---

ترى السمايل الي طلع في الكود هو نقطتين : وبعدها حرف s

---

شكرا لك اخي لن النتيجة بالصورة

(05-02-17, 10:36 PM)عبد الرحمن كتب : لازم يكون في الاخير ss يعني ثنتين