textbox ve labeldeki tarihler arasındaki farkı hesaplama

[zulfuernek]

userform activate olayında label 1 de tarih görünüyor

textbox 1 e tarih yazdığım zaman aynı anda label 3 e iki tarih arasındaki gün farkını hesaplamasını istiyorum.

yani; label3 = Textbox 1 - Label 1

 

[zulfuernek]

konu çözüldü. excel sayfasında herhangi bir hücreye =bugün() format girişi yaparak iki hücre arasındaki farkı alma yöntemiyle çözdüm. işimi gördü

 

[Ömer BARAN]

Merhaba.

Öncelikle TextBox'a tarih yazılması olayının üzerinde durmanızı öneririm.
Elle tarih girişinde birçok kontrol/engelleme/biçimlendirme işlemiyle uğraşmaktansa;
TextBox'un çift klik olayına atanacak, forumda örneklerini bulabileceğiniz ve UserForm olarak hazırlanmış TAKVİM kullanmanızı öneririm.
Böylece aralara nokta/kesme yazma/yazmama, 31.02.2018 gibi hatalı tarih yazılmasını engelleme gibi işlemleri kodlamakla uğraşmazsınız.

Yapacağınız işlem; TAKVİM userformunun, seçilen tarihin Textbox'a yazılmasını sağlayan koduna mantık olarak,
Label3.Caption = Cdate(Textbox1) - CDate(Label1.Caption)
gibi bir satır ilavesiyle veri yazdırmak olur sadece.

Tabi bu arada her hal ve takdirde,TextBox'a yazdırılacak tarihin,
Userform Initalize kodlarıyla Label nesnesine yazıldığını belirttiğiniz tarihe göre
BÜYÜK/KÜÇÜK olma durumunun da kontrolü gerekir.

Kolay gelsin.
.