TextBoxta süre hesaplama

[Erdinç FIRTINA]

Değerli Üyeler,

TextBox1 de doğum tarihi olacak.

TexBox2 de bugün tarihine göre otomatik olarak (Button kullanmadan) süre hesaplanabilir mi? (Yıl, ay ve gün olarak)

Yardımlarınız için şimdiden teşekkürler!!!

 

[ftekin]

Dosyanızdaki TextBox1'in exit event'ı için aşağıdaki kodu yazdım.Daha doğrusu TarihFark diye bir fonksiyondan size uyarladım.Kolay gelsin.



Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1.Value) Then
'Eğer yazım doğru ise
Dim Y As Integer
Dim M As Integer
Dim D As Integer
Dim Temp1 As Date
Temp1 = DateSerial(Year(DateTime.Now), Month(CDate(TextBox1)), Day(CDate(TextBox1)))
Y = Year(DateTime.Now) - Year(CDate(TextBox1)) + (Temp1 > DateTime.Now)
M = Month(DateTime.Now) - Month(CDate(TextBox1)) - (12 * (Temp1 > DateTime.Now))
D = Day(DateTime.Now) - Day(CDate(TextBox1))
If D < 0 Then
M = M - 1
D = Day(DateSerial(Year(DateTime.Now), Month(SonTarih), 0)) + D
End If
TextBox2 = Y & " Yıl " & M & " Ay " & D & " Gün"

Else
'Eğer yazım yanlış ise
MsgBox "Tarih Yazımı Hatalı"
End If
End Sub

 

[Erdinç FIRTINA]

Say&#305;n ftekin,

&#199;ok &#231;ok te&#351;ekk&#252;r ederim. tam da istedi&#287;im gibi bir uygulama.
TextBox1 deki tarih format&#305;n&#305;, yani textbox1 den &#231;&#305;kt&#305;ktan sonra g&#246;r&#252;nen durumunu "dd.mm.yyyy" &#351;eklinde yapabilir miyiz?

Bir de bu g&#252;n tarihi yerine bizim yazaca&#287;&#305;m&#305;z bir tarihe g&#246;re fark bulunmas&#305;n&#305; istiyorsak kodlarda nas&#305;l bir de&#287;i&#351;iklik yapmal&#305;y&#305;z?

&#350;imdiden &#231;ok te&#351;ekk&#252;rler!!!

 

[Erdinç FIRTINA]

Teşekkürler, 1. sorumun cevabını buldum.

Çok teşekkür ederim. Sorduğum 1. sorunun cevabını kodlarda aşağıdaki değişikliği yaparak buldum.

If IsNumeric(TextBox1.Value) Then
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")


2.Sorum için ise bir çözüm bulamadım. Eğer yardımcı olursanız çok sevinirim.

 

[ftekin]

&#304;kinci sorunuz ne?

 

[Erdinç FIRTINA]

Say&#305;n ftekin,
Bug&#252;ne g&#246;re fark&#305; bulmak yerine, TextBox2 ye bizim girece&#287;imiz bir tarihe g&#246;re TextBox3 te fark&#305;n&#305; bulabilir miyiz?