+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة UmAlQuraCalendar Class تقويم أم القري (/showthread.php?tid=4691)
معلومة UmAlQuraCalendar Class تقويم أم القري - RaggiTech - 01-10-12
كاتب الموضوع : BADRMEDIA
فى بيئة دوت نت 2005 يوجد Class جديد يعود بتقوم أم القري لمن يحتاج للحصول على التاريخ الهجري
نعرف الفئة
كود :
[color=#000000][COLOR=#0000bb] Dim UmQ [/color][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Globalization[/color][color=#007700].[/color][COLOR=#0000bb]UmAlQuraCalendar
[/COLOR][/COLOR]نحصل على التاريخ الحالي
كود :
[color=#000000][COLOR=#0000bb] Dim GetingDate [/color][color=#007700]As [/color][color=#0000bb]Date [/color][color=#007700]= [/color][color=#0000bb]Date[/color][color=#007700].[/color][COLOR=#0000bb]Now
[/COLOR][/COLOR]نعرف لليوم متغير ونرسل للفئة لنحصل منها على اليوم الهجري
كود :
[color=#000000][COLOR=#0000bb] Dim hijriDay [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]UmQ[/color][color=#007700].[/color][color=#0000bb]GetDayOfMonth[/color][color=#007700]([/color][color=#0000bb]GetingDate[/color][COLOR=#007700])
[/COLOR][/COLOR]نعرف للشهر متغير ونرسل للفئة لنحصل منها على اليوم الهجري
كود :
[color=#000000][COLOR=#0000bb] Dim hijriMonth [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]UmQ[/color][color=#007700].[/color][color=#0000bb]GetMonth[/color][color=#007700]([/color][color=#0000bb]GetingDate[/color][COLOR=#007700])
[/COLOR][/COLOR]نعرف للسنة متغير ونرسل للفئة لنحصل منها على اليوم الهجري
كود :
[color=#000000][COLOR=#0000bb] Dim hijriYear [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]UmQ[/color][color=#007700].[/color][color=#0000bb]GetYear[/color][color=#007700]([/color][color=#0000bb]GetingDate[/color][COLOR=#007700])
[/COLOR][/COLOR]وبعد ذلك أصبحت تملك التاريخ