標題: [發問] 數值轉成年月再計算 [打印本頁]

---

作者: lct    時間: 2013-6-26 17:14     標題: 數值轉成年月再計算

請問如何將數值轉成年月後再做計算
例如：201301，要先改成為2013年1月，之後再往後加２個月變成2013年3月，該怎麼做呢？
感謝

---

作者: stillfish00    時間: 2013-6-26 20:32

回復 1# lct
不知道你問的是不是這個?
我會先轉為日期再運算，這樣即使運算後會跨年度也不用特別處理(例如加上20個月)。

1. Sub Test()
   
2.     Dim a As Long, d As Date
   
3.    
   
4.     a = 201301
   
5.     d = DateSerial(Int(a / 100), a Mod 100, 1)  '2013/1/1
   
6.     MsgBox Format(DateAdd("m", 2, d), "yyyy年m月")
   
7. End Sub

複製代碼

---

作者: sunnyso    時間: 2013-6-27 10:36

數字格式固定嗎？

---

作者: Hsieh    時間: 2013-6-27 13:46

回復 1# lct
函數即可達成
=--TEXT(EDATE(--(TEXT(A1,"0000-00")&"-01"),2),"yyyymm")
[attach]15327[/attach]

---

作者: lct    時間: 2013-6-28 12:01

回復 2# stillfish00

抱歉,才疏學淺,看不懂,..這是要在那裡做呀???

---

作者: lct    時間: 2013-6-28 12:02

回復 4# Hsieh

不知什麼問題,照著做結果出現  #NAME?

---

作者: Hsieh    時間: 2013-6-28 13:41

回復 6# lct

勾選工具/增益集/分析工具箱

---

作者: ML089    時間: 2013-7-2 17:30

回復 1# lct


A1 =201303
B1 =3
C1 =TEXT(DATE(LEFT(A1,4),RIGHT(A1,2)+B1,1),"yyyymm")

---

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