HOME       LIST

【VB】1ヶ月の日数計算

1ヶ月の日数計算

自分自身を信じてみるだけでいい。きっと、生きる道が見えてくる。(Johann Wolfgang von Goethe)

as cool as a cucumber(落ち着き払っている/冷静な/ゆったりしている/すっきりしている)


Dim dtmMonth1 As Date
Dim dtmMonth2 As Date
Dim int1 As Integer

dtmMonth1 = "2016/04/19"
dtmMonth2 = DateAdd("m", 1, dtmMonth1)
dtmMonth2 = DateAdd("d", -1, dtmMonth2)

int1 = DateDiff("d", dtmMonth1, dtmMonth2)
MsgBox dtmMonth1 & " - " & dtmMonth2 & " - " & (int1 + 1)

以前コンテンツ:【VB6】 ダイアログからファイルを選択
次のコンテンツ:【VB】For Next文内で途中で抜ける



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional