Tarih türündeki değişkenler atanır. 1 Ocak ile 31 Aralık 9999 arası değerleri alır. Tarih değeri çift tırnak içinde verilir. Hafızada 8 byte alan kaplar.

Private Sub Prosedur_Adi() 
   Dim Tarih As Date
   …..................................
   …..................................
   …..................................
End Sub