システム日付とコンボボックスのリスト日付の比較

解決

---

システム日付とコンボボックスのリストから選択した
日付を比較し、もしコンボボックスから選択した日付が
古い場合、メッセージボックスを出力する方法がわから
ないのですが、ご存知の方教えて下さい。

編集 削除

---

ちょっと複雑ですねー、
  システムの日付はNow関数かDate関数で得られます

  んー、あとはえーっと、なんでしたっけ…。
DateDiffだったかTimeDiffだったかの関数で、差を得られたはずです。
詳しくはリファレンスとかを見てください、
(多分DateDiffだったと思いますけど…^^;)

編集 削除

---

コンボボックスの日付の形式を教えてください。
yyyymmdd？
yyyy/mm/dd？

編集 削除

---

コンボボックスの日付の形式は、yyyy/mm/ddです。

編集 削除

---

以下のプロシージャをそのままパクってください。
こんなんでよろしいでしょうか？

Private Sub Combo1_Click()
    Dim count
    count = DateDiff("d", Combo1.Text, Format(Now, "yyyy/mm/dd"))
    
    If count > 0 Then
        MsgBox count & "日前です。"
    End If
End Sub

編集 削除

---

解決しました。ありがとうございました。

編集 削除

---

Dim count As Integer  としたら出来ないのですが・・・。
NMさん、まんまる。さんは出来ました？？

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。