VB.NET 日付計算 少数第一まで表示させたい

Question

いつもお世話になっております。

■実現したい事
2020年3月15日から2020年2月1日を引いた時、
1.5と表示させたいです。（1.5ヶ月）

■現在のソース
Dim month As Double = DateDiff("m",#2/1/2020#,#3/15/2020# )
これを計算すると1になります。（0.5が切り捨てられる）

実現させるためにはどの様にソースを書けばいいのか
教えていただけませんでしょうか。

宜しくお願い致します。

Comments

[Y.H.]

> 1.5と表示させたいです。（1.5ヶ月
3月は31日あり、15日だと少数第一位まで（第二位以下切り捨て）なら1.4か月では？
2020/3/10 - 2020/2/20 の場合は (10/31)+((29-20)/29))=0.632...で0.6?

[退会済みユーザー]

> 1.5と表示させたいです。（1.5ヶ月
3月は31日あり、15日だと少数第一位まで（第二位以下切り捨て）なら1.4か月では？

すみません、その通りです。計算間違いでした。

2020/3/10 - 2020/2/20 の場合は (10/31)+((29-20)/29))=0.632...で0.6?

はい、0.6です。

Answer 1

差分の月数を出すんじゃなくて、差分の日数を出して、ひと月の日数で割りましょう。
そこからお望みの桁数で四捨五入すればよろしい

＃ひと月の日数というのを何日にするか、ってのはよく考えよう

Answer 2

これを計算すると1になります。（0.5が切り捨てられる）

切り捨てられてるわけではありません。
単に年月の差になっているだけです。

切り捨てられているのであれば
DateDiff("m", #2/29/2020#, #3/1/2020#)は0になるはずですが結果は1です。

本当に1.2か月とか出す気であれば日数で差を取得し自分で月の日数で割りましょう。

Answer 3

皆様からいただいご回答を参考に日付の差を30日で割って小数点第一まで表示させる事にしました。皆様ご回答いただきありがとうございます。

Comments

[Y.H.]

捨垢で質問し解決したら即退会。。。