منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - امل المساعد في كود إضهار رسالة بشرط معين

السلام عليكم و رحمة الله و بركاته

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

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

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

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

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

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

امل المساعدة

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

شكرآ لكم

السلام عليكم

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

كود :

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

- تحياتي .

ها للسنة الهجرية قوانين معينة اذكرها علنا نساعدك

شكرآ لك بارك الله فيكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

allayl

VB_Coder

asto

allayl