(01-11-25, 05:11 PM)Zuhare كتب : هل هذا المطلوب
كود :
Dim d = CDate("13-09-12, 12:46 PM")
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(us_date)
بارك الله فيك
لم يقبل الا باعتبار الرقم 13 شهر يعني لازم يكون من 12 فاقل.
افكر بعمل فنكشن لترتيب النص بعيدا عن التاريخ واذا جهز امرره للتاريخ ..اكبر رقم اكيد سنة ثم يوم ثم شهر .
كيف يكون هذا الله اعلم.
كود :
Dim str As String = "^(\d{2})\-(\d{2})\-(\d{4})(,\s\d{2}:\d{2}\s[a-zA-Z]{2})$"
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
Dim m, d, y, o As String
If ma.Success Then
d = ma.Groups(1).Value
m = ma.Groups(2).Value
y = ma.Groups(3).Value
o = ma.Groups(4).Value
Dim all As String = $"{m}-{d}-{y}{o}"
TextBox2.Text = (ToTimeStamp(all))
Else
MsgBox("false")
End Ifهذا اذا كنت اعرف خانة الشهر من خانة اليوم
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير