HOME       LIST

【VB】1ヶ月の日数計算

1ヶ月の日数計算

仕事に重要ではないのはない。リストアップして優先順位を決めて確実に進んで行くのが大事。2016/07/04(DOJEUN)

She eats like a bird.(彼女は少食です/彼女は食が細いです)


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