『マクロで日付の参照』（ＤＥＬ）

マクロで日付ごとに処理を行いたいのですがどのように参照すればよいのかわかりません。

具体的に書きますと

・セルＡ１　に　2007/7/20　と手動で入力してある

・マクロでＡ１とtodayが一致するかチェック、異なる場合はこのまま処理してよいか警告

・日付が一致or警告で「はい」の場合

    Select Case A1の日付
        Case 1                       '　１日の時の処理
            月初処理と通常処理
        Case 2                       '　２日の時の処理
            通常処理
　　　　　　・
　　　　　　・
　　　　　　・
        Case Else     
            エラーメッセージ
    End Select

・Select Caseでの日付の参照のやり方

・エラー時の処理の中止のやり方

・あとセルＡ１に入力されデータが日付かどうかチェックできる方法があれば教えてください。

どうぞご教授お願いいたします。

----
 今日の日付は、
 Date
 で取得できます。

 IsDate関数
 の戻り値で、日付か否かが判定できます。
 (MARBIN)
----
 >・エラー時の処理の中止のやり方

 どんなエラーでも中止するだけでいいなら
 こんな感じでエラー処理できます。

  On Error Goto er

  '処理
  Exit Sub
 er:
  MsgBox "エラーです。" 'エラーになった場合の処理
 End Sub
 (MARBIN)
----
 >・Select Caseでの日付の参照のやり方 

 こんなかんじでしょうか。

 Select Case A1の日付
 ↓
 Select Case Day(Worksheets("Sheet1").Range("A1").Value)
 (MARBIN)
----
すべて実行できました、MARBINさんすばやい返信ありがとうございます。
（ＤＥＬ）