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

解決

まんまる。 2001-11-28 04:26:35 No: 103826

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

たかみちえ 2001-11-28 08:28:30 No: 103827

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

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

NM 2001-11-28 18:33:02 No: 103828

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

まんまる。 2001-11-28 19:33:51 No: 103829

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

NM 2001-11-29 01:25:50 No: 103830

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

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

まんまる。 2001-11-29 23:50:28 No: 103831

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

なす 2001-12-05 20:13:50 No: 103832

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