數值轉成年月再計算 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 數值轉成年月再計算

返回列表下一主題上一主題發帖

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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2013-6-26 20:32 | 顯示全部帖子

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

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

複製代碼

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

返回列表下一主題上一主題