[Yardım]  Otomatik yaş hesaplama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Otomatik yaş hesaplama

İleti#1)  ekselmeraklisi » 04 Nis 2021 10:40

TextBox'a şu tarih formatında GG.AA.YYYY tarih yapıştırınca, otomatik olarak yaşı sadece yıl olarak verebilecek bir kod arıyorum, yardımcı olabilir misiniz?
Kullanıcı avatarı
ekselmeraklisi
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Otomatik yaş hesaplama

İleti#2)  düşünceli » 04 Nis 2021 22:33

ekselmeraklisi yazdı:TextBox'a şu tarih formatında GG.AA.YYYY tarih yapıştırınca, otomatik olarak yaşı sadece yıl olarak verebilecek bir kod arıyorum, yardımcı olabilir misiniz?


Kod: Tümünü seç
Function Yas(DogumTarihi As Date)
    If DogumTarihi = 0 Then
        Yas = "Tarih Girmediniz"
    Else
        Select Case Month(Date)
            Case Is < Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi) - 1
            Case Is = Month(DogumTarihi)
                If Day(Date) >= Day(DogumTarihi) Then
                    Yas = Year(Date) - Year(DogumTarihi)
                Else
                    Yas = Year(Date) - Year(DogumTarihi) - 1
                End If
            Case Is > Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi)
        End Select
    End If
End Function


Doğum Tarihi: A1 hücresinde işlem yapacağınız tarih ise; B1 hücresinde olduğu düşünülmüştür.
KUllanım için= =YaS(A1)-YaS(B1)
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Cevap: Otomatik yaş hesaplama

İleti#3)  ekselmeraklisi » 05 Nis 2021 11:05

düşünceli yazdı:
ekselmeraklisi yazdı:TextBox'a şu tarih formatında GG.AA.YYYY tarih yapıştırınca, otomatik olarak yaşı sadece yıl olarak verebilecek bir kod arıyorum, yardımcı olabilir misiniz?


Kod: Tümünü seç
Function Yas(DogumTarihi As Date)
    If DogumTarihi = 0 Then
        Yas = "Tarih Girmediniz"
    Else
        Select Case Month(Date)
            Case Is < Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi) - 1
            Case Is = Month(DogumTarihi)
                If Day(Date) >= Day(DogumTarihi) Then
                    Yas = Year(Date) - Year(DogumTarihi)
                Else
                    Yas = Year(Date) - Year(DogumTarihi) - 1
                End If
            Case Is > Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi)
        End Select
    End If
End Function


Doğum Tarihi: A1 hücresinde işlem yapacağınız tarih ise; B1 hücresinde olduğu düşünülmüştür.
KUllanım için= =YaS(A1)-YaS(B1)


Teşekkür ederim, bunu şu şekilde nasıl yapabilirim?

Tarihi Userform'da TextBox5'e gireceğim ve otomatik olarak bu hesap yapılacak
Kullanıcı avatarı
ekselmeraklisi
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: Cevap: Otomatik yaş hesaplama

İleti#4)  düşünceli » 06 Nis 2021 22:04

ekselmeraklisi yazdı:
düşünceli yazdı:
ekselmeraklisi yazdı:TextBox'a şu tarih formatında GG.AA.YYYY tarih yapıştırınca, otomatik olarak yaşı sadece yıl olarak verebilecek bir kod arıyorum, yardımcı olabilir misiniz?


Kod: Tümünü seç
Function Yas(DogumTarihi As Date)
    If DogumTarihi = 0 Then
        Yas = "Tarih Girmediniz"
    Else
        Select Case Month(Date)
            Case Is < Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi) - 1
            Case Is = Month(DogumTarihi)
                If Day(Date) >= Day(DogumTarihi) Then
                    Yas = Year(Date) - Year(DogumTarihi)
                Else
                    Yas = Year(Date) - Year(DogumTarihi) - 1
                End If
            Case Is > Month(DogumTarihi)
                Yas = Year(Date) - Year(DogumTarihi)
        End Select
    End If
End Function


Doğum Tarihi: A1 hücresinde işlem yapacağınız tarih ise; B1 hücresinde olduğu düşünülmüştür.
KUllanım için= =YaS(A1)-YaS(B1)


Teşekkür ederim, bunu şu şekilde nasıl yapabilirim?

Tarihi Userform'da TextBox5'e gireceğim ve otomatik olarak bu hesap yapılacak


Ben elimde bulunan bir örneği paylaştım sizinle. Örnek dosya eklerseniz üstadlar ilgilenebilirler.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Otomatik yaş hesaplama

İleti#5)  mars2 » 08 Nis 2021 11:51

İyi Günler;
Güzel olmuş, Bu kodu revize ederek gün, ay, yıl olarak vermesi daha mümkün müdür.
Kullanıcı avatarı
mars2
Siteye Alışmış
 
Adı Soyadı:musa ark
Kayıt: 23 Oca 2009 04:07
Konum: izmir
Meslek: memur
Yaş: 60
İleti: 148
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe