التاريخ الهجري

قم باستقبال التاريخ ك DateTime

استخدم الميثود ToString لتحويله إلى string

بالبارامتر الوحيد الإختياري للميثود ToString مرر لها ناتج الميثود DateTimeFormat من عنصر CultureInfo

انشئ عنصر ال CultureInfo كالتالي
 

Dim CultureI AS New CultureInfo("en-US")

يبقى عليك فقط ان تمرر ناتج الميثود DateTimeFormat من هذا العنصر كبارامتر للدالة ToString

بهذه الطريقة حولنا التاريخ الهجري إلى ميلادي

لكي نقوم بالعكس اي تحول التاريخ الميلادي إلى هجري نقوم بالتعديل على عنصر ال CultureI بحيث يصبح الباني الخاص به كالتالي

Dim CultureI AS New CultureInfo("ar-SA")

استخدم الميثود subtract لكي تقوم بطرح التواريخ

بالتوفيق