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

نسخة كاملة : معرفة عدد الأيام في الشهر الحالي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : AhmedEssawy


كود :
Public Function LastDay(dDate As Date) As Integer
Dim i As Integer
Dim d As Date
For i = 31 To 28 Step -1
If IsDate(Month(dDate) & "/" & trim(Str(i)) & _
"/" & Year(dDate)) Then
LastDay = i
Exit Function
End If
Next
End Function