利用函式
TEXT：根據引數設定數字或日期/時間值的格式。
MID：回傳 Variant (String)，包含字串的指定字元數。
SUBSTITUTE：擷取回傳特定位元的 Variant (String)。
西元換民國 Text( 日期 , "格式")
Dim Num_YEAR as Date
Num_YEAR = "1993/12/09"
儲存格=TEXT (Num_YEAR ,"yyyy") - 1911 & TEXT( Num_YEAR ,"mmdd")
儲存格=TEXT (Num_YEAR ,"yyyy") - 1911 & "/" & TEXT(Num_YEAR , "mm/dd")
比較簡單，可利用Text函數 "yyyy"、"mm"、"dd" 等日期格式引數，直接取出 年 月 日 。
民國換西元
Dim Num_YEAR as Date
Num_YEAR_1 = "82/12/09"
Num_YEAR_2 = "109/01/07"
儲存格 = SUBSTITUTE( Num_YEAR_1 , "/" , "")
= SUBSTITUTE( Num_YEAR_2 , "/" , "")
儲存格 = DATE(MID( Num_YEAR_1 , 1 , 2 ) + 1911 , MID(Num_YEAR_1 , 3 , 2 ),MID( Num_YEAR_1 , 5 , 2 ))
= DATE(MID( Num_YEAR_2 , 1 , 3 ) + 1911 , MID(Num_YEAR_2 , 4 , 2 ),MID( Num_YEAR_2 , 6 , 2 ))
先用SUBSTITUTE
取代 " / " 成 空白 ""
輸出: 821209 及 1090107
再用MID
取出 (民國年) 從第1個 開始往後算2位置字元 輸出: 82
從第1個 開始往後算3位置字元 輸出: 109
取出(月) 從第3個 開始算2位置字元 輸出: 12
從第4個 開始算2位置字元 輸出: 01
取出(日) 從第5個 開始算2位置字元 輸出: 09
從第6個 開始算2位置字元 輸出: 07
人生美好~別浪費腦容量記程式碼 :- )
作者：CYL
出處：http://dotblogs.com.tw/cylcode
資料來源都會特別註明，有興趣都可查詢原出處，本站皆經過整理才分享，如有轉載請顯示出處及作者，感謝。