Yaş Hesaplama

[Mx@Raid]

Arkadaşlar şu an ismini hatırlayamadım ama yaş hesaplamasını hazırlayan arkadaşın fonksiyonunu kullanıyorum kendsine teşekkür ederim. Normalde hesaplama çalışıyor ancak textboxa aktarmıyor.

Function DT(DogumTarihi As Date)
    If DogumTarihi = 0 Then
        DT = "Tarih Girmediniz"
    Else
        Select Case Month(Date)
            Case Is < Month(DogumTarihi)
                DT = Year(Date) - Year(DogumTarihi) - 1
            Case Is = Month(DogumTarihi)
                If Day(Date) >= Day(DogumTarihi) Then
                    DT = Year(Date) - Year(DogumTarihi)
                Else
                    DT = Year(Date) - Year(DogumTarihi) - 1
                End If
            Case Is > Month(DogumTarihi)
                DT = Year(Date) - Year(DogumTarihi)
        End Select
    End If
End Function

yaş hesaplama fonksiyonu bu şekilde. Ben TextBox9 a doğum tarihini girdiğimde TextBox14 e yaşını yazması gerikiyor ancak başaramadım. yardımcı olursanız sevinirim. teşekkürler.

 

[halit3]

şöyle denermisiniz.

TextBox14.Text = DT(TextBox9.Text)

 

[Mx@Raid]

Sn. Halit Runtime Error 13 Type mismatch hatası veriyor.
Bunu

Private Sub UserForm_Initialize()[Code] başlığı altında değilde başka başlık latında mı yazmam lazım

 

[halit3]

böyle dene

On Error Resume Next
TextBox14.Text = DT(TextBox9.Text)

 

[Mx@Raid]

Hata vermedi ancak sonucu da yazmadı. Dosyayı ekliyorum bakabilir misiniz?

 

[halit3]

şöyle deneyin

Private Sub TextBox9_Change()
On Error Resume Next
TextBox14.Text = Yas_Hesabı(TextBox9.Text)
End Sub


çalışıyor

 

[Mx@Raid]

Sn. Halit teşekkürler. Birde listbox çift klikle ilgili yerlere nasıl alabilirim bir arkadaşın uygulamasında vardı ancak ben kendi dosya ma denediğimde olmadı.

 

[halit3]

örnek olarak textboxlara böyle bir uygulama yapabilirsin

Private Sub ListView1_DblClick()
X = ListView1.SelectedItem.Index
TextBox1.Text = ListView1.ListItems(X)
TextBox2.Text = ListView1.ListItems(X).ListSubItems(1).Text
TextBox3.Text = ListView1.ListItems(X).ListSubItems(2).Text
TextBox4.Text = ListView1.ListItems(X).ListSubItems(3).Text
TextBox5.Text = ListView1.ListItems(X).ListSubItems(4).Text
TextBox6.Text = ListView1.ListItems(X).ListSubItems(5).Text
TextBox7.Text = ListView1.ListItems(X).ListSubItems(6).Text
End Sub

 

[Mx@Raid]

Teşekkürler. Kolay gelsin

 

[halit3]

iyi akşamlar

 

[halit3]

deminki kodlar yanlış oldu okdlar listwiem içindi
aşağıdaki kodu kullanacaksın

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Text = ListBox1.List(ListBox1.ListIndex, 0)
TextBox5.Text = ListBox1.List(ListBox1.ListIndex, 1)
TextBox6.Text = ListBox1.List(ListBox1.ListIndex, 2)
TextBox7.Text = ListBox1.List(ListBox1.ListIndex, 3)
TextBox8.Text = ListBox1.List(ListBox1.ListIndex, 4)
End Sub