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)
تقييم الموضوع :
|
لمعرفة عدد الأيام المتبقية في السنة
|
 تم الشكر بواسطة: محمد ئوزبك , محمد ئوزبك
|
|
|
| الردود في هذا الموضوع |
|
لمعرفة عدد الأيام المتبقية في السنة - بواسطة Raggi Tech - 17-10-12, 01:01 AM
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم