| |
▼ムーン さん：
こんにちは。
>ムーンと申します。
>
>早速ですが、期間の引き算につきまして、どなたかご教授願えませんでしょうか？
Datediff関数を使うと、結果が導きだせると思われます。
>2004/04/01〜2004/10/31
>
>この間が何ヶ月経過しているかを計算させたいのです。
求めたい結果は○ヶ月○日、という様な結果でなく、
○ヶ月だけで良いのでしょうか。
また日数までも求めたい場合、
例えば2006年4月13日〜2006年4月14日までを1日経過と見るのでしたら、
Sub 日付の差を求める()
Const SDay As Date = #4/1/2004#
Const EDay As Date = #10/31/2004#
Dim FDay As Date
FDay = CDate(Format(EDay, "yyyy/mm") & "/1")
Debug.Print DateDiff("m", SDay, EDay) & "ヶ月"
Debug.Print DateDiff("d", SDay, EDay) & "日"
Debug.Print DateDiff("m", SDay, EDay) & "ヶ月" _
& DateDiff("d", FDay, EDay) & "日"
End Sub
上記コードをモジュールに記載し、
結果をイミディエトウィンドウにて確認されてみてください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
