Belirlenen tarihe göre Msgbox çalıştırmak

[okan32]

Kod içerisinde belirlediğimiz tarihe göre msgbox çalıştırmak mümkün müdür? Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

İf sorgusuyla yapabilirsiniz. Örneğin;

If Date = "07.05.2018" Then MsgBox "Bugün 7 Mayıs"

 

[okan32]

İlginiz için çoook teşekkür ederim ömer bey

 

[derisa963]

İf sorgusuyla yapabilirsiniz. Örneğin;

If Date = "07.05.2018" Then MsgBox "Bugün 7 Mayıs"

Çok çok özür dileyerekten kafama takıldı acaba tırnak içerisindeki rakamların tarih olduğunu program algılayabilirmi diye ama emin değilim .

bu şekilde kullanıyorum ben genelde. yanlışım var ise kusuruma bakmayın lütfen.

If Date = DateValue("07.05.2018") Then MsgBox "Bugün 7 Mayıs"

 

[Murat OSMA]

Sn. derisa963,

Size DateValue kullanımı ile ilgili birkaç örnek vereyim.

[SIZE="2"]Sub Emre()
    MsgBox DateValue("Şubat 12, 1980")
    MsgBox DateValue("Temmuz, 19, 2001")
    MsgBox DateValue("12/30")
    MsgBox DateValue("12/30/07")
    MsgBox DateValue("12/30/2007")
    MsgBox DateValue("Aralık, 30 2017")
    MsgBox DateValue("30 Ara, 2018")
    MsgBox DateValue("Ara 30, 2007")
    MsgBox DateValue("12/30/2007 12:40:13")
End Sub[/SIZE]

​

 

[derisa963]

Sn. derisa963,

Size DateValue kullanımı ile ilgili birkaç örnek vereyim.

[SIZE="2"]Sub Emre()
    MsgBox DateValue("Şubat 12, 1980")
    MsgBox DateValue("Temmuz, 19, 2001")
    MsgBox DateValue("12/30")
    MsgBox DateValue("12/30/07")
    MsgBox DateValue("12/30/2007")
    MsgBox DateValue("Aralık, 30 2017")
    MsgBox DateValue("30 Ara, 2018")
    MsgBox DateValue("Ara 30, 2007")
    MsgBox DateValue("12/30/2007 12:40:13")
End Sub[/SIZE]

​

Yanlış anlamayın lütfen aklıma takılan sadece if fonksiyonunda DateValue() kullanmadan direk tırnak icerisinde tarih vererek doğru sonuca herzaman ulaşabiliyormuyuz.

vbYes ?

 

[Murat OSMA]

Merhaba,

Öncelikle her mesajınızda bir önceki mesajı olduğu gibi alıntı yapmazsanız görüntü kirliliğinden bizi kurtarmış olursunuz.

Sorunuza gelecek olursak; sanıyorum yanıtını da iyi biliyorsunuz ama diğer kullanıcıları da bilgilendirmek adına sizin aracılığınız ile yanıt vereyim..

İki farklı değişkenimiz olsun, tarih1 değişkenine Date fonksiyonuyla geçerli sistem tarihini yazdıralım,
tarih2 değişkenine de çift tırnak içerisinde bir tarih ifadesi yazdıralım.

[SIZE="2"]    tarih1 = Date
    tarih2 = "08.05.2018"[/SIZE]

Locals Window'da değişkenlerin aldığı veri türlerine baktığınızda, tarih1'in Date olduğunu, tarih2'nin de String olduğunu göreceksiniz.
Bu şekilde iki ayrı veri türlerini birbiri ile karşılaştırmak her zaman size doğru sonucu vermez.
Ya String türünde olan değişkeni CDate veya CVDate fonksiyonu ile tarihe dönüştürmek, ya CStr fonksiyonu ile her ikisini de aynı türe, yani String'e dönüştürerek ya da her ikisini yine aynı şekilde CLng fonksiyonu ile Long veri türüne dönüştürerek eşleşme yapılması daha sağlıklı olacaktır. Alternatifler sizin DateValue öneriniz gibi çoğaltılabilir ama temel mantık; karşılaştırması yapılan verilerin aynı türde olması sağlanmalıdır.
Elma il Armut da mevyedir ama aynı meyve olmadıkları için, manavdan 2 kg Elma istediğinizde size 2 kg Armut vermez.

İyi günler.​

 

[derisa963]

Merhaba,
​

Bakın bende eksik bilyormuşum .

Sabahtan beridir kafama takılan buydu ben Datevalue() ile alınca farklı türden de olsa sorun olmaz diye tahmin ediyordum halbuki aynı türe çevirme gerekiyormş.

Engin bilgilerinizi paylaştığınız için teşekkür ederim