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

كيف الحال اعضاء منتدى فيجول بيسك

و كل عام و انت بخير و بصحه و سلامه

امل المساعدة في كود إضهار رسالة للمستخدم البرنامج

الشرط الاول : كل ايام الاربعاء

الشرط الثاني : كل يوم 8 من الشهر

الشرط الثالث : كل نهاية شهر 3 و 6 و 9 و 11

امل المساعدة

التواريخ بالتاريخ الهجري ليس الميلادي

شكرآ لكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- إستخدم هذا الكود :

كود :
Private Function Is_LastDay() As Boolean

Calendar = vbCalHijri

If (Month(DateAdd("d", 1, Date)) > Month(Date) And _
    Year(DateAdd("d", 1, Date)) = Year(Date)) Or _
   (Year(DateAdd("d", 1, Date)) > Year(Date)) Then
   Is_LastDay = True
Else
   Is_LastDay = False
End If

End Function


Private Sub Command1_Click()

Calendar = vbCalGreg

If Weekday(Date) = 4 Then
   MsgBox "اليوم الأربعاء"
End If

Calendar = vbCalHijri

If Day(Date) = 8 Then
   MsgBox "اليوم هو اليوم الثامن"
End If

If Month(Date) = 3 Or Month(Date) = 6 Or Month(Date) = 9 Or Month(Date) = 11 Then
   If Is_LastDay Then MsgBox " اليوم نهاية شهر " & Month(Date)
End If

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: allayl
#3
ها للسنة الهجرية قوانين معينة اذكرها علنا نساعدك
الرد }}}}
تم الشكر بواسطة: allayl
#4
شكرآ لك بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] الخصم من المرتب شهريا مبلغ معين بصورة تلقائيه abazrmhamed 1 130 30-03-17, 03:06 PM
آخر رد: المبرمج العتيق
  رسالة خطأ بالبرنامج مربوط بقاعدة بيانات بأداة ADODC haniblack 4 354 06-03-17, 12:35 AM
آخر رد: YOUSEF_READH
  [vb6.0] كيف يتم فتح موقع في توقيت معين tempman 2 143 14-02-17, 10:43 AM
آخر رد: tempman
  [سؤال] النسخ واللصق لخليه فى اكسل بشرط تغير تاريخ اليوم norhan 4 210 26-01-17, 01:51 AM
آخر رد: norhan
  وضع كود لحدث معين لمجموعة ادوات من نفس النوع عبدالله الصافي 6 289 14-01-17, 01:16 PM
آخر رد: عبد العزيز البسكري
  [سؤال] جمع عمود معين فى كل صفحه فى التقرير بعيدا عن جمع الحقل باكمله فى الجدول محمودالصياد محمود 1 227 03-01-17, 09:45 PM
آخر رد: السيد الغالي
  [ تمّ الحل ] : ما سبب ظهور رسالة الخطأ لو سمحتم عبد العزيز البسكري 2 165 09-12-16, 04:07 PM
آخر رد: عبد العزيز البسكري
  جلب اسماء المجلدات الموجودة داخل مجلد معين عبدالله الصافي 7 464 26-11-16, 11:05 PM
آخر رد: عبدالله الصافي
Photo [سؤال] رسالة خطأ عند فتح مشروع vb 6 accmohamed63241 2 188 22-11-16, 12:18 PM
آخر رد: accmohamed63241
  مشكلة عندتعديل حقل التاريخ بحيث اذا ترك فارغا تظهر رسالة (نوع غير متطابق) allobaed 3 271 10-11-16, 11:58 PM
آخر رد: Ahmed_Mansoor

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


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