Q&A
コンボボックスに日付を2つ入力してもらってその日付の日数差をDateDiffを使って表示するようにしたいです。
今のやり方では日数差ではなくよくわからない日付が出るのでやり方を教えてください。
Sub ボタン1_Click() Dim n, g, p As Long Dim h As String n = ComboBox1.Text g = ComboBox2.Text p = ComboBox3.Text h = n & "/" & g & "/" & p Dim n2, g2, p2 As Long Dim h2 As Date Dim h3, dd As Date n2 = ComboBox4.Text g2 = ComboBox5.Text p2 = ComboBox6.Text h2 = n2 & "/" & g2 & "/" & p2 h3 = CDate(h) dd = DateDiff("d", h2, h3) MsgBox dd End Sub
回答3件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。