將Calendar改成民國年

Dim info As New Globalization.CultureInfo("zh-TW")
info.DateTimeFormat.Calendar = New Globalization.TaiwanCalendar() System.Threading.Thread.CurrentThread.CurrentCulture = info