+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في كود يتعلق بالأشهر (/showthread.php?tid=2774)
مساعدة في كود يتعلق بالأشهر - Microsoft Visual Basic 6.0 - 06-05-14
السلام عليكم
أريد ان يظهر الشهر الحالي في تاكست 2 باللغة الفرنسية
والشهر الماضي في تاكست 1
ارجوا التعديل على المثال في المرفقات
RE: مساعدة في كود جزاكم الله خيرا - asto - 06-05-14
كود :
x = Month(Now)
y = x - 1
If y = 0 Then y = 12
If x = 1 Then Text2.Text = "كانون 2"
If y = 1 Then Text1.Text = "كانون 2"
If x = 2 Then Text2.Text = "شباط"
If y = 2 Then Text1.Text = "شباط"
If x = 3 Then Text2.Text = "آذار"
If y = 3 Then Text1.Text = "آذار"
If x = 4 Then Text2.Text = "نيسان"
If y = 4 Then Text1.Text = "نيسان"
If x = 5 Then Text2.Text = "أيار"
If y = 5 Then Text1.Text = "أيار"
If x = 6 Then Text2.Text = "حزيران"
If y = 6 Then Text1.Text = "حزيران"
If x = 7 Then Text2.Text = "تموز"
If y = 7 Then Text1.Text = "تموز"
If x = 8 Then Text2.Text = "آب"
If y = 8 Then Text1.Text = "آب"
If x = 9 Then Text2.Text = "ايلول"
If y = 9 Then Text1.Text = "ايلول"
If x = 10 Then Text2.Text = "ت1"
If y = 10 Then Text1.Text = "ت1"
If x = 11 Then Text2.Text = "ت2"
If y = 11 Then Text1.Text = "ت2"
If x =12 Then Text2.Text = "ك1"
If y = 12 Then Text1.Text = "ك1"RE: مساعدة في كود جزاكم الله خيرا - Microsoft Visual Basic 6.0 - 06-05-14
بارك الله فيك الاخ asto على المساعدة
RE: مساعدة في كود يتعلق بالأشهر - Sniper.ps - 06-05-14
السلام عليكم ورحمة الله وبركاته
تم تعديل عنوان الموضوع .. يرجى استخدام عنوان يعبر عن محتواه
وفقك الله
RE: مساعدة في كود يتعلق بالأشهر - vbnet - 07-05-14
-
منقول
إفادة على السريع.....
كود :
MsgBox "الشهر الحالي: " & MonthName(Month(Now))
MsgBox "الشهر الماضي: " & MonthName(IIf(Month(Now) = 1, 12, Month(Now) - 1))
MsgBox "اليوم الحالي: " & WeekdayName(Weekday(Now))
MsgBox "اليوم السابق: " & WeekdayName(IIf(Weekday(Now) = 1, 7, Weekday(Now) - 1))
Calendar = vbCalHijri
For i = 1 To 12
Me.List1.AddItem MonthName(i)
Next i
Calendar = vbCalGreg
For i = 1 To 12
Me.List2.AddItem MonthName(i)
Next i
For i = 1 To 7
Me.List3.AddItem WeekdayName(i)
Next i