[發問] 數值轉成年月再計算

lct

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

stillfish00

回復 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

數字格式固定嗎？

Hsieh

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

下載 (5.3 KB)

2013-6-27 13:45

lct

回復 2# stillfish00

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

lct

回復 4# Hsieh

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

Hsieh

回復 6# lct

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

ML089

回復 1# lct


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