Eğer Tarih ve Saat Koşulu gerçekleşmez ise

[mozdem]

Merhabalar,
yazmak istediğim kod,

Eğer Tarih Bugünkü tarihten büyük ise
yada
Bugünkü tarihe eşit ve Saat 19:15 den küçük ise
kod çalışmasın

'----------------------
Aşağıdaki kodları yazmaya çalıştım ama olmadı

Sub Tarih_ve_Saat_Koşulu()
  
  tarih = "22.03.2017"
  Bugün = Date
  saat = Format(Now, "hh:ss")

  If tarih > Bugün _
      Or (Bugün = tarih And _
      saat < "19:15") Then Exit Sub

End Sub

 

[Mustafa MUTLU]

Tarihi sayıya çevirirseniz istediğiniz sonucu alabilirsiniz.
" bu işaretle metin olarak görüyor büyük küçük olayı gerçekleşmiyor

Sub Tarih_ve_Saat_Koşulu()
  
  tarih = 42816.8020833333
  Bugün = Now

  If tarih > Bugün Then Exit Sub

End Sub