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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اتجاه التاريخ في التكست بوكس أبووسم 4 52 منذ 10 ساعة مضت
آخر رد: حريف برمجة
  [VB.NET] حقل التاريخ في الجريد فيو يتعارض مع الحفظ tarek 2 51 أمس, 02:14 AM
آخر رد: ملهمـ
  فارق التاريخ و التوقيت حافظ حافظ 5 89 18-04-18, 02:43 AM
آخر رد: ملهمـ
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 109 13-04-18, 12:43 AM
آخر رد: سعود
  [سؤال] كيف يمكن قراءة التاريخ المدخل بواسطة datetimepiker في كود البحث ؟ zainab m 0 45 12-04-18, 12:24 AM
آخر رد: zainab m
  [VB.NET] مرة اخرى انا مش عاوز اضيف عمود جديد dgv انا اريد جعل العمود الثالث يكون combobox tarek 2 85 07-04-18, 04:28 AM
آخر رد: tarek
  مشاكل التاريخ الهجري aftfm 2 63 05-04-18, 11:07 PM
آخر رد: محمود بكرى
Lightbulb [سؤال] اريد مشروع تحويل الارقام الى حروف فرنسية بالفجوال بيسك نت tichouckt 3 107 19-03-18, 02:28 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] التاريخ القبطي محمد اسماعيل 0 58 15-03-18, 01:38 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تحديث المتصفح الخاص بفيجوال بيسك adam mostafa 7 78 04-03-18, 06:18 PM
آخر رد: Dev Saeed

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


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