「民國」與「西元」的互換
首頁 基礎 操作 敘述 控制項 函數 程式設計 影像處理 Q & A

向上

日期字串「民國」與「西元」的互換

  • 「民國」轉換成「西元」,例:"730521"代表中華民國73年5月21日轉成"1984/05/21"

    假設「民國」的日期字串:

    Dim Date_ROC As String   ' 宣告 Date_ROC 是字串變數

    Date_ROC = "730521"

    則「西元」的日期字串:

    Dim Date_DC As String   ' 宣告 Date_DC 是字串變數

    Date_DC = Cstr(Cint(Mid(Date_ROC, 1, 2)) + 1911) & "/" & Mid(Date_ROC, 3, 2) & "/"  & Mid(Date_ROC, 5, 2)

    說明:

    • Mid(Date_ROC, 1, 2) 是取 Date_ROC 字串左邊兩個字元 (第1個字元起兩個字元)è進一步參考《字串函數 - Left》

    • Mid(Date_ROC, 3, 2) 是取 Date_ROC 字串第3個字元起兩個字元è進一步參考《字串函數 - Left》

    • Cint(Left(Date_ROC, 2)) 是把 Left(Date_ROC, 2) 得到的字串轉換成整數

    • Cstr 是把整數轉換成字串

    • "&" 是字串的連接符號

  • 「民國」轉換成「西元」,例:"1984/05/21"轉成"730521"

    假設「西元」的日期字串:

    Date_DC = "1984/05/21"

    則「民國」的日期字串:

    Date_ROC = Cstr(Cint(Mid(Date_DC, 1, 4)) - 1911) & Mid(Date_ROC, 6, 2) & Mid(Date_ROC, 9, 2)