ACCESS 日付の比較
日付を比較して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
お礼
本当に助かりました、ありがとうございます。
補足
Text1もText2も””m/d”でフォーマット指定してましたので Text2のフォームのプロパティ>計算>カスタムの演算スクリプト>編集>「javascriptの作成と編集」に var dd = this.getField("Text1").value; dd = new Date(util.scand("m/d", dd).valueOf() + 24*60*60*1000); this.getField("Text2").value = util.printd("m/d", dd); を入れることで期待通りの動作が出来ました。 ありがとうございます。