تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في كود يتعلق بالأشهر
#1
السلام عليكم

أريد ان يظهر الشهر الحالي في تاكست 2 باللغة الفرنسية

والشهر الماضي في تاكست 1


ارجوا التعديل على المثال في المرفقات


الملفات المرفقة
.rar   مثال.rar (الحجم : 1.21 ك ب / التحميلات : 20)
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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"
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك الاخ asto على المساعدة
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تم تعديل عنوان الموضوع .. يرجى استخدام عنوان يعبر عن محتواه

وفقك الله
الرد }}}}
تم الشكر بواسطة:
#5
-
منقول

إفادة على السريع.....


كود :
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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 100 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 224 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  مساعدة فى عمل برنامج بسيط hithemlion 23 604 27-09-16, 05:22 PM
آخر رد: Amir_alzubidy
  مساعدة في Active report haiderkh 4 178 31-08-16, 12:08 AM
آخر رد: Ahmed_Mansoor
  مساعدة في كود بحث Microsoft Visual Basic 6.0 2 151 24-07-16, 06:14 PM
آخر رد: Microsoft Visual Basic 6.0
  مساعدة text مربوطة بقاعدة بيانات mohfar 2 137 14-07-16, 09:46 PM
آخر رد: Amir_alzubidy
  مساعدة في كود الطباعة Mo_rb 5 264 07-07-16, 06:17 PM
آخر رد: Amir_alzubidy
  [ تمّ الحل ] مساعدة برسائل تنبيهيّة خاصّة عبد العزيز البسكري 5 184 19-06-16, 04:16 AM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة في رفع قاعدة برنامج vb6 والبحث بالنت fahad fbs 0 149 14-06-16, 03:59 PM
آخر رد: fahad fbs
  [vb6.0] مساعدة في تعديل كود مقارنة أرقام ثم وضعها في لست بوكس asto 1 117 14-06-16, 08:00 AM
آخر رد: Ahmed_Mansoor

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


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