تقييم الموضوع :
  • 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]
الرد }}}}
تم الشكر بواسطة: عبد الرحمن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اسناد التاريخ الي الداتا تيم من الداتا جريد محمد اسماعيل 8 75 19-01-18, 09:42 PM
آخر رد: محمد اسماعيل
  كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 nooralcown 4 143 08-01-18, 01:47 PM
آخر رد: nooralcown
  [VB.NET] التصدير الى الإكسل و تنسيق الخلايا و رسم الحدود حسب عدد السجلات larbihamri 4 141 06-01-18, 08:58 AM
آخر رد: محمود صالح
  اريد امر بدل من امر Else IF يقوم بنفس الاوامر ؟ ضروري . DanyGhost2010 5 145 04-01-18, 09:21 PM
آخر رد: zinom
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 11 4,909 02-01-18, 08:20 PM
آخر رد: ابو روضة
  مساعده لدي فورم اريد اظهار الموديل بشرط النوع مراد بورجي 8 170 02-01-18, 07:58 PM
آخر رد: karimx
  [سؤال] لو سمحتوا كيف اضيف أيام على التاريخ المُدخل؟ Nedaa 2 71 02-01-18, 03:44 PM
آخر رد: Nedaa
  التحكم في اداة التاريخ DateTimePicker1 aftfm 1 79 01-01-18, 11:37 PM
آخر رد: طالب برمجة
  [VB.NET] اريد كود تحميل ملف من مجلد مشاركة في جهاز آخر بنفس الشبكة abomo3ath 3 67 31-12-17, 11:17 PM
آخر رد: abomo3ath
  اريد كود عند مرور الماوس علي تكست بوكس = " " ؟ DanyGhost2010 1 66 31-12-17, 04:45 PM
آخر رد: طالب برمجة

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


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