تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة عدد الأيام المتبقية في السنة
#1
كاتب الموضوع : AhmedEssawy


كود :
Dim iDayInYear As Integer
iDayInYear = DatePart("y", Now())

DaysLeftInYear = IIf(IsDate(sDate = "02/29/" & _
CStr(Year(Now))), 366 - iDayInYear, 365 - iDayInYear)
}}}
تم الشكر بواسطة: محمد ئوزبك , محمد ئوزبك



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم