Tarihler Farklı ise Uyarı Versin

[mustafakoker]

Selam arkadaşlar bu forum sayesinde birşeyler öğrendim ve hala sizlerin yardımıyla öğrenmeye devam ediyorum.

Ekli dosyamda a1 hücresinde günün tarihi var benim yapmak istediğim barkodu okutunca yanlış tarih (Günün tarihinden önceki yıl ve ay) ise uyarı mesajı vermesi gerekli açıklamayı ek dosyama yazdım bakabilirmisiniz teşekkürler.

 

[mustafakoker]

18 kişi bakmış ama cvp veren olmamış biraz daha bekliyelim

 

[leumruk]

b = Mid(Date, 8, 10)
[c1]= Buraya barkodla gelen tarihi aldırmanız gerekiyor. ayrıca hücre tarih formatında biçimlendirilmeli.
x=Mid([c1], 8, 10)
If x <> b Then
MsgBox "Tarih geçmiş."
End If

Selamlar,
Yukarıdaki kod bloğunu ilgili kendinize uyarlayınız.
b ' ye günün tarihinin yıl kısmının son iki rakamını tanımladım.(2099 yılına kadar bu tanımlama ile sonuca ulaşabilirsiniz.)
C1 hücresini girdiğiniz verideki tarihin bulunduğu hücre olarak varsaydım.
Ve bu hücrenin de son iki rakamını x olarak tanımladım. Sonrası malum.
Saygılar...

 

[mustafakoker]

Sayım Leumruk teşekkür ederim fakat anlayamdım örnek olarak verebilirmisin

 

[mustafakoker]

arkadaşlar ekli dosyamla ilgili açıklamalı bilgi verebilirmisiniz rica etsem