民國年曆 與 西元年曆 切換

Const LOCALE_SLONGDATE = &H20
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_STIME = &H1E
Const LOCALE_ICALENDARTYPE = &H1009
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Integer
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String) As Integer
Private Sub EngCalendar() ''西元年
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, "1")
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, "yyyy/MM/dd")
End Sub
Private Sub ChtCalendar() ''民國年
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, "4")
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, "yyy/MM/dd")
End Sub