No.3ベストアンサー
- 回答日時:
日付が正しく6桁で入力されているという前提で、以下のよ
うにしてはどうでしょうか?
'*************************************************
sDate = "20010331"
sDate2 = "20010401"
sDate = Left$(sDate ,4) & "/" & Mid$(sDate, 5, 2) & "/" & Mid$(sDate, 7, 2)
sDate2 = Left$(sDate2 ,4) & "/" & Mid$(sDate2, 5, 2) & "/" & Mid$(sDate2, 7, 2)
If DateValue(sDate2) - DateValue(sDate) = 0 then
Msgbox "同じ日付"
Elseif DateValue(sDate2) - DateValue(sDate) = 1 then
Msgbox "次の日"
Else
Msgbox "それ以外"
End If
'*************************************************
みばえが悪いので適当に修正してください。
変数等は宣言してください。
以上、参考になれば幸いです。
こんにちは。早速ご返事ありがとうございました。
tom777さんの教えて下さったのを参考にして、修正してうまく動作するように
なりました。
本当にありがとうございました。もっともっと勉強して一人前になれるように
がんばります。
No.2
- 回答日時:
DateDiff関数を使用してはどうでしょうか。
ご質問の日付を使って記述例を挙げてみます。
If DateDiff("d", "2001/03/31","2001/04/01") = 1 Then
これで翌日を判断することができるはずです。
ちなみに"d"は時間間隔モードで、日での比較を行うという意味です。
この方法ならテキストボックスからの値で比較できるのではないでしょうか。
(内部処理はDate型です)
こんにちは。早速ご返事ありがとうございました。
教えていただいた通り、DateDiff関数を使って翌日判定が
できました。
本当にありがとうございました。
もっともっと勉強して、早く一人前になれるようにがんばります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
3人のじゃんけんのプログラム
-
コンボボックスに日付を表示する
-
VBA 日付、未来の日付はエラー...
-
システム日付とは?
-
<Access>2つの抽出条件が合致...
-
エクセルのVBAで日付を検索し転...
-
VB6で時刻の範囲に入っているか...
-
【VBA】土日をスキップして日付...
-
励磁パターン
-
パソコンの日付変更したら、ヤ...
-
VisualBasic6.0のFormat関数で...
-
日時の表示の仕方
-
サイトの日付がおかしいです。
-
最近、iPhoneがおかしいです 私...
-
アンドロイドから通知無しで鳴る音
-
PCでのAPEXで何度もアップデー...
-
電話の着信が来てないのに着信...
-
リアルプレイヤーのオートアッ...
-
YouTubeで知らない人のライブや...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
エクセルのVBAで日付を検索し転...
-
VisualBasic6.0のFormat関数で...
-
特定の項目セルにスキャン(入...
-
今日より前の書き方 マクロ
-
VBAで当月の1日を表示するには...
-
テキストボックスにカレンダー...
-
システム日付とは?
-
【VBA】土日をスキップして日付...
-
VBA 日付・時刻の判別 時刻を認...
-
コンボボックスに日付を表示する
-
VBA 日付、未来の日付はエラー...
-
3人のじゃんけんのプログラム
-
「eclipseで作るカレンダー(ス...
-
1本あたり○円と表示する時どの...
-
JSPからYYYYMMDDで日付入力する
-
DataGridViewの和暦表示について
-
テキストボックスに今日の日付...
おすすめ情報