السلام عليكم
لديا في البرنامج ادات كومبوبكس تعرض بها تواريخ ملفات محفوظة
اريد لما اختار احد الملفات من الكمبوبكس يكتب تاريخه حسب ما هو معروظ في الكومبوبكس
مثلا هذا ملف يظهر تاريخه بهذا الشكل 12/03/2016 00:02:30
اريد ان يكتب في الملف التكست بفس التنسيق
لانه بعض الاحيان تغير النضام او تغير شكل التاريخ اريد ان لا يتاثر بتاريخ الجهاز اي يكتب بنفس تنسيق الذي يظهر في الكمبوبكس
03-02-17, 06:41 AM (آخر تعديل لهذه المشاركة : 03-02-17, 07:03 AM {2} بواسطة 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
03-02-17, 10:24 PM (آخر تعديل لهذه المشاركة : 05-02-17, 06:14 PM {2} بواسطة bidaya.)
(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 (آخر تعديل لهذه المشاركة : 05-02-17, 08:17 PM {2} بواسطة عبد الرحمن.)
جرب هذا الكود
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
شكرا لك اخي لن النتيجة بالصورة