[ASP.NET] [VB]字串處理: 西元轉民國 民國轉西元

民國轉西元

EX: Label1.text="105/10/12" 要轉成 TextBox1.Text="2016/10/12"

Dim strDate As String = Label1.text
Dim DateArr As Array = Split(strDate, "/")
TextBox1.Text = CInt(DateArr(0)) + 1911 & Mid(strDate, Len(DateArr(0)) + 1)

西元轉民國

Dim dtNow As Date = CDate(TextBox1.Text.Trim)

Dim twC = New System.Globalization.TaiwanCalendar()

Dim date1 As String

date1 = twC.GetYear(dtNow).ToString + dtNow.ToString("/MM/dd")