إجمالي مرات مشاهدة الصفحة

الثلاثاء، 4 أكتوبر 2016

دالة لتحويل التاريخ الهجري إلى تاريخ ميلادي Hijri Gregorian Converter

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

من فترة قدمت بالمدونة موضوع فيه دالة لتحويل التاريخ الميلادي إلى هجري ، والآن أقدم لكم الدالة التي تقوم بالعكس ، أي الدالة التي تقوم بتحويل التاريخ الهجري إلى ميلادي


قم بوضع الدالة المعرفة في موديول عادي ، اضغط Alt + F11 من لوحة المفاتيح للذهاب إلى محرر الأكواد ، ومن قائمة Insert قم بإدراج موديول عادي Module ، والصق الدالة المعرفة التالية

Function ConvertDate(ByRef StringIn As String) As String
    Dim savedCal As Integer
    Dim d As Date
    Dim s As String
    
    savedCal = Calendar
    Calendar = 1
    d = CDate(StringIn)
    Calendar = 0
    s = CStr(d)
    ConvertDate = Format(s, "dd/mm/yyyy")
    Calendar = savedCal
End Function

لاستخدام الدالة : نفترض أن لديك تاريخ هجري في الخلية A1 ، والمطلوب الحصول على التاريخ الميلادي لهذا التاريخ في الخلية B1 .. قم بوضع المعادلة التالية في الخلية B1 ليتحقق المطلوب ، ويتم تحويل التاريخ الهجري إلى ميلادي.

=ConvertDate(A1)


إعداد / ياسر خليل أبو البراء

هناك 7 تعليقات:

  1. السلام عليكم
    اشكرك على الكود المرفق

    لكن كيف يكون طريقة الاستخدام فى اليوزرفورم
    For example:
    textbox1 value = hijri date "01/01/1438"
    i need to convert this date to geag date into textbox2

    ردحذف
  2. يوضع التاريخ بين علامتي الشباك أي بعد علامة يساوي الخاصة بالتكست بوكس قم بوضع اسم الدالة المعرفة ثم افتح قوس واكتب التاريخ ما بين علامتي الشباك ثم أغلق القوس

    ردحذف
  3. اشكرك على الرد اخى ياسر
    هل من الممكن كتابة الكود لسهوله تطبيق

    عندى فورم به اكثر من textbox
    ما اريد عمله
    عند ادخال التاريخ بالهجرى داخل textbox1
    اريد تحويل هذا التاريخ الى ميلادى واظهار القيمة ب textbox2

    ردحذف
  4. السلام عليكم بكل سهوله يا جماعه
    =TEXT(B35,"[$-,197000]B2dd/mm/yyyy;@")
    في هذه الحاله تكون التقويم ميلادي قم فقط بتغير الخانه المراد العمل عليها B35
    اما في حالة ان يكون التقويم هجري قم فقط بإزالة الاصفار 000 تتحول الي هجري
    =TEXT(B35,"[$-,197]B2dd/mm/yyyy;@")

    ردحذف
  5. السلام عليكم ورحمة الله وبركاته
    لصقت الكود لكن مافيه شي
    مشكور

    ردحذف