التحويل من التاريخ الهجري إلى الميلادي والعكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116) +---- الموضوع : التحويل من التاريخ الهجري إلى الميلادي والعكس (/showthread.php?tid=5821) |
التحويل من التاريخ الهجري إلى الميلادي والعكس - RaggiTech - 17-10-12 كاتب الموضوع : AhmedEssawy
*** الكود منقول من المنتدى القديم ...أولاً : نكتب في الموديل كود : Public Function TransDate(thedate As Date, TypeTrans As Integer) As String كود : If TypeTrans = 1 Then كود : Text1 = TransDate ميلادي - هجري كود : a = TransDate(text2, 1) كود : b = TransDate(Text1, 2) |