02-11-13, 07:46 AM
السلام عليكم
- إستخدم هذا الكود :
- تحياتي .
- إستخدم هذا الكود :
كود :
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
