標題: [發問] format西元轉民國 [打印本頁]

---

作者: reangame    時間: 2020-4-21 16:27     標題: format西元轉民國

程式碼如下：
if format(工作表1.cells(r,2).value,"e年mm月")<>ym then
ym=format(工作表1.cells(r,2),"e年mm月")
AAA.comboBox1.AddItem ym
end if
其中.cells(r,2).value為西元，如2020/4/21
在2003 excel正常執行轉民國年
在2010 excel仍顯示西元年
系統win10也安裝中華民國曆更新
請問大大這該如何修正？

---

作者: Baracuda    時間: 2020-4-21 16:44

我有遇過類似情形，但不完全相同。
用 CStr 轉成字串，另外套用 Format ，可以解決數字的問題。
試試看，這樣能否解決日期的間題。

---

作者: reangame    時間: 2020-4-21 18:48

回復 2# Baracuda


   您的意思是： format(cstr(.cells(r,2)),"e年mm月")嗎？

---

作者: 准提部林    時間: 2020-4-21 20:05

用這試試:
Application.Text([D2].Value, "e年mm月")

再不行用這:
d = [D2].Value
dt = Year(d) - 1911 & "年" & Format(d, "mm月")

---

作者: GBKEE    時間: 2020-4-24 13:54

回復 3# reangame

Format(Date, "E年MM月")  2010版可顯示民國年度
Excel 修復或重灌 試試看

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)