[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
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
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
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
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: 149
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak

Cevap: Otomatik yaş hesaplama

İleti#6)  myazici61 » 11 Nis 2021 15:01

Kod: Tümünü seç
Function gunfark(Tarih1 As Date, Tarih2 As Date) As String
Dim Y As Integer
Dim M As Integer
Dim D As Integer
Dim Temp1 As Date
Temp1 = DateSerial(Year(Tarih2), Month(Tarih1), Day(Tarih1))
Y = Year(Tarih2) - Year(Tarih1) + (Temp1 > Tarih2)
M = Month(Tarih2) - Month(Tarih1) - (12 * (Temp1 > Tarih2))
D = Day(Tarih2) - Day(Tarih1)
If D < 0 Then
M = M - 1
D = Day(DateSerial(Year(Tarih2), Month(Tarih2) + 1, 0)) + D + 1
End If
gunfark = Y & " Yıl, " & M & " Ay, " & D & " gün"
End Function
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 09:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 51
İleti: 297
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Otomatik yaş hesaplama

İleti#7)  mars2 » 11 Nis 2021 16:24

Sayın myazici61;
Cevgabınız ve ilginiz için teşekkürler.
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: 149
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 2 misafir

Bumerang - Yazarkafe