منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احتاج الى تفرقة اليوم السنة الشهر و الساعة الدقيقة و الثواني

كود :

       Dim x As String = "11/23/2017 4:16:42 AM"

        Dim list As New ArrayList

        list.AddRange(x.Split("/"c))

        list.AddRange(x.Split(":"c))

        MsgBox(list(5))

هذا الكود يعطي قيمة خاطئة هل من حل ؟

تفضل التعديل

Dim x As String = "11/23/2017 4:16:42 AM" ' DateTime
Dim s() As String = x.Split ' Split
Dim list As New ArrayList ' ArrayList
list.AddRange(s(0).Split("/"c)) ' Date array
list.AddRange(s(1).Split(":"c)) ' Time array
list.Add(s(2)) ' AM , PM
MsgBox(list(5)) ' Message

عليك قراءة التاريخ كتاريخ و ليس String
ومنه تستطيع الحصول علي اليوم و الشهر و السنة و الساعة و الدقيقة و الثواني

(27-11-17, 08:44 AM)ﻣﺒﺘﺪﺉ كتب : [ -> ]تفضل التعديل

Dim x As String = "11/23/2017 4:16:42 AM" ' DateTime
Dim s() As String = x.Split ' Split
Dim list As New ArrayList ' ArrayList
list.AddRange(s(0).Split("/"c)) ' Date array
list.AddRange(s(1).Split(":"c)) ' Time array
list.Add(s(2)) ' AM , PM
MsgBox(list(5)) ' Message

جزاك الله خير اخي

(27-11-17, 01:59 PM)silverlight كتب : [ -> ]عليك قراءة التاريخ كتاريخ و ليس String
ومنه تستطيع الحصول علي اليوم و الشهر و السنة و الساعة و الدقيقة و الثواني

جزاك الله خير اخي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mohamed20

ﻣﺒﺘﺪﺉ

silverlight

Mohamed20