西元轉民國

參考來源
--方法一:
TextBox1.Text = Convert.ToInt16(DateTime.Now.AddYears(-1911).Year) & DateTime.Now.ToString("/MM/dd")
--方法二:
Dim dtNow = DateTime.Now
Dim twC = New System.Globalization.TaiwanCalendar()
TextBox1.Text = twC.GetYear(dtNow).ToString + dtNow.ToString("/MM/dd")