17-10-12, 01:01 AM
كاتب الموضوع : AhmedEssawy
كود :
Dim iDayInYear As Integer
iDayInYear = DatePart("y", Now())
DaysLeftInYear = IIf(IsDate(sDate = "02/29/" & _
CStr(Year(Now))), 366 - iDayInYear, 365 - iDayInYear)
لمعرفة عدد الأيام المتبقية في السنة
|
17-10-12, 01:01 AM
كاتب الموضوع : AhmedEssawy
كود : Dim iDayInYear As Integer تم الشكر بواسطة: محمد ئوزبك , محمد ئوزبك
|
|