[[20190113135201]]　『vbaの月数計算のやり方について。』（袴田）　ページの最後に飛ぶ

『vbaの月数計算のやり方について。』（袴田）

質問があります。
a1セル:20161202
a2セル:20190101
という表示形式の年月日があったとして
a1セルの方は1ヶ月後の1日目に、
a2セルの方は1ヶ月前の1日目にして、
（a2セル－a1セル）
201812－201701＝24
という数字を出すような方法はありますでしょうか？

月数をプラスマイナスにするやり方と、
月数を計算する方法をお教え願いたく思います。

どなたかお知恵を貸してください。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

DateSerial
を調べてみてください。
（カリーニン） 2019/01/13(日) 14:06

DateAdd
も調べてみてください。
（カリーニン） 2019/01/13(日) 14:07

一般関数ですが、
DATEDIF関数
が使えます。たしかVBAでも使えたような気がしますが未確認でさ。
（カリーニン） 2019/01/13(日) 14:12

 >未確認でさ

 未確認です
 の間違いです。スマホから打つとこれがあるから…。
（カリーニン） 2019/01/13(日) 14:17

 こんにちは！
23　って出たけど？そこは調整して下さい。

 Option Explicit
Sub てすと()
Dim a As String
Dim b As String
Dim MyDateA As Date
Dim MyDateB As Date
Dim MyDateC As Long
a = Range("A1").Text
b = Range("A2").Text
'a1セルの方は1ヶ月後の1日目に、
MyDateA = DateSerial(Left(a, 4), Mid(a, 5, 2) + 1, 1)
'a2セルの方は1ヶ月前の1日目にして、
MyDateB = DateSerial(Left(b, 4), Mid(b, 5, 2) - 1, 1)
'201812－201701＝24
MyDateC = DateDiff("m", MyDateA, MyDateB)
MsgBox MyDateC
End Sub

 ※お馬ちゃんモード突入～～～～～！！！！
（SoulMan） 2019/01/13(日) 15:41

SoulManさん
無事に出来ました！
ありがとうございます！

カリーニンさんも情報ありがとうございました！
（袴田） 2019/01/13(日) 23:52

コメント返信：

[ 一覧(最新更新順) ]

[[20190113135201]] 『vbaの月数計算のやり方について。』（袴田） ページの最後に飛ぶ

[[20190113135201]]　『vbaの月数計算のやり方について。』（袴田）　ページの最後に飛ぶ