西曆與民國時間轉換和月份轉換為文字代號

'作業系統:2000,資料庫:ACCESS2000 不過我想應該沒問題
'表單置2個指令按鈕Command0跟Command1,及1個組合方塊Combo0
Option Compare Database
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Const LOCALE_ICALENDARTYPE = &H1009
Private Sub Command0_Click()
??? Dim S As String
??? Select Case Combo0
?????????? Case "中華民國曆": S = 4
?????????? Case "西曆英文": S = 2
?????????? Case "西曆中文": S = 1
??? End Select
??? If S <> "" Then SetLocaleInfo GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, S
End Sub
Private Sub Command1_Click()
??? Dim I As Integer, S(1 To 12) As String, A As String
???
??? For I = 1 To 12
??????? S(I) = "95/" & Format(I, "00")
??? Next
???
??? For I = 1 To 12
??????? '利用Split以"/"為分隔將年度跟月份拆開,再將月份轉16進位跟年度合併
??????? A = A & S(I) & "=" & Split(S(I), "/")(0) & Hex(Split(S(I), "/")(1)) & vbCrLf
??? Next
??? '直接用Msgbox來表示,要顯示在Label的話:
??? 'A = "95/11"
??? 'Label0 = Split(A, "/")(0) & Hex(Split(A, "/")(1))
??? MsgBox A
End Sub
Private Sub Form_Load()
??? Combo0.RowSourceType = "Value List"
??? Combo0.RowSource = "中華民國曆;西曆英文;西曆中文"
End Sub