هل من كود غير هذا الكود المعقد الذى كتبته لكتابة التاريخ معدولآ
datte = Text1.Text dddd = Day(datte) mmmm = Month(datte) yyyy = Year(datte) MMSG1 = "كان هذا بتاريخ " & yyyy & "/" & mmmm & "/" & dddd Z = MsgBox((MMSG1), vbOKOnly, "")
لأنى حين كتبته مباشرة كالآتى ظهر التاريخ مقلوبآ
datte = Text1.Text MMSG1 = "كان هذا بتاريخ " & datte Z = MsgBox((MMSG1), vbOKOnly, "")
ولكم ألف شكر
أخي بالإمكان استخدام دالة تنسيق النص
MMSG1 = "كان هذا بتاريخ " & Format(Text1.Text, "yyyy/MM/dd")
اطلع على الخيارات المختلفة من هذه المعلومات
http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.strings.format.aspx
ما أقبـح المعصية ، تذهب لذتها ويبقى إثمها ... ومأ أحسن الطاعة ، تذهب مشقتها ويبقى ثوابها
كل نعيم دون الجنة غرور ... وكـل شقـاء دون النـار سرور
لك ألف شكر
فعلآ كتبه معدولآ
هذا الموضوع مغلق.