ACCESS　日付の比較

解決済

質問者：optimas
質問日時：2007/02/25 19:15
回答数：2件

日付を比較してstrToDateよりstrFromDateの日付が未来日だった場合エラーを出したいのですがうまくいきません。
日付型に合わせたつもりなのですがこれだとダメなのでしょうか

strFromTime = txtFromYear & "/" & Format(txtFromMonth, "00") & "/" & Format(txtFromDay, "00")
strToTime = txtToYear & "/" & Format(txtToMonth, "00") & "/" & Format(txtToDay, "00")

If (Format(strFromTime, yyyy / mm / dd) >
　　Format(strToTime, yyyy / mm / dd)) Then
MsgBox MSG_ERR, vbCritical, SYSTEM_NAME
Exit Sub
End If

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： p-applepie
回答日時：2007/02/25 19:26

シリアル値で比較してもエラーがあがりますか？

- 0
- 件

通報する

No.2ベストアンサー

回答者： CHRONOS_0
回答日時：2007/02/25 23:57

Format関数の使い方が間違っています

>(Format(strFromTime, yyyy / mm / dd)
テキスト型の第１項目に対しy,m,dは使えません。構文も間違っています

文字列を比較したいのであれば単純に
If strFromTime > strToTime Then
でいいのでは

日付時刻型で比較するのなら

If DAteValue(strFromTime) > DateValue(strToTime) Then