ASP.NET 民國年轉換函數

民國年轉換函數(支援100年) GOOGLE來的,作者不詳... ChangeTaiwanCalendar(DateTime.Now)

Public Shared Function ChangeTaiwanCalendar(ByVal x As DateTime, ByVal format As String) As String

Dim now As DateTime = x
Dim tc As New Globalization.TaiwanCalendar()
Dim regex As Regex = New System.Text.RegularExpressions.Regex("[yY]+")
format = regex.Replace(format, tc.GetYear(x).ToString("000"))
Return x.ToString(format)
End Function