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

السلام عليكم
لديا في البرنامج ادات كومبوبكس تعرض بها تواريخ ملفات محفوظة
اريد لما اختار احد الملفات من الكمبوبكس يكتب تاريخه حسب ما هو معروظ في الكومبوبكس
مثلا هذا ملف يظهر تاريخه بهذا الشكل     12/03/2016 00:02:30
اريد ان يكتب في الملف التكست بفس التنسيق
لانه بعض الاحيان تغير النضام او تغير شكل التاريخ اريد ان لا يتاثر بتاريخ الجهاز اي يكتب بنفس تنسيق الذي يظهر في الكمبوبكس

وشكرا

يمكنك ان تقرأ التاريخ بشكل عادي جدا ثم تستخدمه و باستخدام String.Format تعيد كتابة التاريخ بالصيغة التي تريدها

(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 


مشاء الله اخي الله يحفظك ويبارك فيك

لكن فيه مشكلة بحيث بعد اعادة الكتابة لا يظهر الصفر  مثل الصورة

جرب هذا الكود
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

---

جربت اكتب 1/2/2017 10:2:5 pm
طلع 01/02/2017 22:02:05

(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

---

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

لازم يكون في الاخير ss يعني ثنتين

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

الف شكر لك اخي الكريم نجح الكود
ربي يحفظك