نقل قول نوشته شده توسط linux
Dim hc As New Globalization.HijriCalendar
hc.HijriAdjustment = 2

بقیه اش هم از msdn
دستت درد نکنه ولی این کد اشکال داره MSDN رو هم دیدم اونم اشکال داشت. برای دو تا ماه مختلف امتحان کنید درست جواب نمی ده یک روز پس و پیش می شه.