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

السلام عليكم و رحمة الله و بركاته

كود :
Public Function IsLeapYear(ByVal vzInput As Variant) As Boolean
Dim nYear As Integer
If VarType(vzInput) = vbDate Then
nYear = DatePart("YYYY", vzInput)
ElseIf IsNumeric(vzInput) Then
nYear = vzInput
Else
Exit Function
End If
IsLeapYear = IsDate(nYear & "-02-29")
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 309 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 337 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 367 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 323 17-10-12, 02:21 PM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 310 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 365 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 312 17-10-12, 01:01 AM
آخر رد: RaggiTech
  لمعرفة فيما إدا كنت متصلاً بالانترنت أم لا RaggiTech 0 295 17-10-12, 01:01 AM
آخر رد: RaggiTech
  لمعرفة عدد الأيام المتبقية في السنة RaggiTech 0 295 17-10-12, 01:01 AM
آخر رد: RaggiTech
  لمعرفة حرف ال Drive الخاص ب USB RaggiTech 0 311 17-10-12, 01:00 AM
آخر رد: RaggiTech

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


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