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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لسكون المنظومة بعد 5 دقائق من عدم استعمالها mawadaalmogrbi 5 129 منذ 11 ساعة مضت
آخر رد: عبد العزيز البسكري
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 6 49 اليوم, 12:24 AM
آخر رد: dametucorazon
Sad [VB.NET] اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا kalshsami 7 87 أمس, 10:18 AM
آخر رد: mrnooo2000
  [VB.NET] اريد كود منع المستخدم من الكتابة داخل الكمبو بوكس alfaiz678 2 58 13-07-18, 04:12 PM
آخر رد: alfaiz678
  تنسيق حقل حسب شرط معين في الكريستال ريبورت atefkhalf2004 5 81 12-07-18, 04:26 AM
آخر رد: محمد كريّم
  [سؤال] اريد الطريقه الصحيحه لعمل FilterRow للداتا جريد ثم حفظ البيانات من الداتا جريد لقاعده dametucorazon 6 127 30-06-18, 12:45 AM
آخر رد: dametucorazon
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 175 29-06-18, 07:40 PM
آخر رد: elgokr
  سؤال اريد طريقه تفعيل الحمايه لبرنامج قمت بانشاءه وتحديد السيريال أبو علي1 3 100 24-06-18, 08:12 PM
آخر رد: sendbad100
  [VB.NET] اريد فتح موقع معين اكتر من مرة لحسابات مختلفة او تبديل الكوكاييز باستخدام selenium d الماجيك مسعد 5 127 18-06-18, 04:37 AM
آخر رد: الماجيك مسعد
  [VB.NET] اريد طريقه لمنح المستخدم صلاحيه انشاء مستخدم علي البرنامج بنفسه مرة واحدة فقط dametucorazon 3 96 17-06-18, 04:29 AM
آخر رد: elgokr

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


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