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

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

Huh Huh
مكمن شرح الطريقة
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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 

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

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


الملفات المرفقة صورة/صور
   
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#6
Huh Huh
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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

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


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

الف شكر لك اخي الكريم نجح الكود
ربي يحفظك
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: عبد الرحمن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد حل لى مشكلة هذا الخطا يظهر لى كثيرااا naderalkeng54 3 103 23-09-18, 12:02 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدة فى برنامج اصنعة فى الفجول بسك naderalkeng54 4 163 18-09-18, 03:04 PM
آخر رد: naderalkeng54
  كيفية عرض التاريخ الهجري المتألق9 14 290 18-09-18, 01:38 PM
آخر رد: المتألق9
  كتابة التاريخ بالحروف العيدروس 4 129 16-09-18, 02:55 AM
آخر رد: 911
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 137 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  كود تغيير التاريخ vb آسير بلآ قيود 1 110 08-09-18, 08:07 AM
آخر رد: elgokr
  [سؤال] اريد كود Mina Botros 4 163 03-09-18, 07:14 AM
آخر رد: elgokr
  [VB.NET] اريد تظبيط مشروعي الى الافضل ممكن مساعدتي 0theghost0 3 130 03-09-18, 06:16 AM
آخر رد: elgokr
Video [VB.NET] اريد تحميل المُحدد فقط ابو روضة 31 936 03-09-18, 06:12 AM
آخر رد: elgokr
  مشكلة في تسجيل التاريخ بأداة DateTimePicker Hazem1 15 474 30-08-18, 10:32 PM
آخر رد: elgokr

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


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