تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود تنسيق التاريخ
#1
السلام عليكم
لديا في البرنامج ادات كومبوبكس تعرض بها تواريخ ملفات محفوظة
اريد لما اختار احد الملفات من الكمبوبكس يكتب تاريخه حسب ما هو معروظ في الكومبوبكس
مثلا هذا ملف يظهر تاريخه بهذا الشكل     12/03/2016 00:02:30
اريد ان يكتب في الملف التكست بفس التنسيق
لانه بعض الاحيان تغير النضام او تغير شكل التاريخ اريد ان لا يتاثر بتاريخ الجهاز اي يكتب بنفس تنسيق الذي يظهر في الكمبوبكس

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

Huh Huh
مكمن شرح الطريقة
الرد }}}
تم الشكر بواسطة:
#4
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 ObjectAs EventArgsHandles 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 
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100
#5
(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 ObjectAs EventArgsHandles 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 

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

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#6
Huh Huh
الرد }}}
تم الشكر بواسطة:
#7
جرب هذا الكود
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:mmConfuseds")
Catch ex1 As Exception
End Try


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

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

جربت اكتب 1/2/2017 10:2:5 pm
طلع 01/02/2017 22:02:05
الرد }}}
تم الشكر بواسطة:
#8
(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:mmConfuseds")
       Catch ex1 As Exception
       End Try


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

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

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#9
لازم يكون في الاخير ss يعني ثنتين
الرد }}}
تم الشكر بواسطة: bidaya
#10
(05-02-17, 10:36 PM)عبد الرحمن كتب : لازم يكون في الاخير ss يعني ثنتين

الف شكر لك اخي الكريم نجح الكود
ربي يحفظك
الرد }}}
تم الشكر بواسطة: عبد الرحمن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 291 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 616 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 393 24-01-24, 10:12 PM
آخر رد: annagui
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 417 09-01-24, 08:40 PM
آخر رد: new_programer
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 254 29-12-23, 10:44 PM
آخر رد: Kamil
  اريد مساعدة في العملية الحسابية melad2002 3 397 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,815 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  التاريخ الهجرى mmaalmesry 9 1,066 07-12-23, 01:32 PM
آخر رد: kebboud
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 337 16-11-23, 12:02 AM
آخر رد: بلال بلال

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم