Tarih formatının girilmesi zorlansın

[mozdem]

Sub TarihlerArası_Göre_Ara()
' iki tarih verisi girilecek
' veriler tarih formatında girilsin. Boş bırakılmasın
' son tarih ilk tarihten küçük olmasın, 3 defa girilirse çış yapılsın


Dim t1 As Date
Dim t2 As Date
Dim t As Date

t1 = InputBox("aranacak ilk Tarihi giriniz .", "İLK TARİH", "")

If t1 = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

m = 1
40
If m = 4 Then Exit Sub
t2 = InputBox("aranacak ilk Tarihi giriniz yazınız.", "SON TARİH", "")
If t2 < t1 Then
MsgBox "Son tarih ilk tarihten küçük olamaz"
m = m + 1
GoTo 40
End If


If t2 = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If


MsgBox t1 & " ile " & t2 & " Arası Arama yapılacak"

End Sub

''*********

Yukarıdaki kodlarda 2 problemi çözemedim
1- tarih girişi Boş bırakıldığında
2- tarih formatı dışında giriş yapıldığında

yardım edebilirnisiniz


teşekkür ederim

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? Belki bir fikir verir

Sub TarihAl()
Dim Tarih As Date
Tarih = Application.InputBox("Tarihi Giriniz", "Tarihi g-a-y yada g/a/y biçiminde Girebilirsiniz", Type:=1)
If IsDate(CDate(Tarih)) = False Or CDate(Tarih) = 0 Then
    MsgBox "Yanlış Tarih"
Else
    [A1] = Tarih
End If
End Sub

 

[mozdem]

Merhaba,

Aşağıdaki kodları dener misiniz? Belki bir fikir verir

Sub TarihAl()
Dim Tarih As Date
Tarih = Application.InputBox("Tarihi Giriniz", "Tarihi g-a-y yada g/a/y biçiminde Girebilirsiniz", Type:=1)
If IsDate(CDate(Tarih)) = False Or CDate(Tarih) = 0 Then
    MsgBox "Yanlış Tarih"
Else
    [A1] = Tarih
End If
End Sub

Çok teşekkür ederim hocam, ellerinize sağlık.