Iän laskeminen HETU:n perusteella?

Tinna82

Hei, kuinka Excelissä voisi laskea Hetun perusteella iän? Olen käyttänyt komentoa PVMERO.

Ongelmana on kuitenkin tuo, että hetu pitäisi saada muodosta 010182-12AB muotoon 01.01.1982. Lisäksi, miten lasku tapahtuu, kun kyseessä on 2000 -luvulla syntynyt? tällöin pitäisi saada 010101A12AB -> 01.01.2001 -muotoon.

19

7542

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Solussa A1 HETU
      Jos haluat iän vuosina kaava
      =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");""))

      Jos haluat iän päivinä kaava
      =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");""))

      Elikkä POIMI.TEKSTI funktiolla testataan onko seitsemäs merkki - vai A.
      PÄIVÄYS funktiolla muutetaan päivämääräksi, jota käytetään aloituspäivänä ja NYT() funktio toimii lopetuspäivänä.

      • Utelias

        Entäpä ennen 1.1.1900 syntyneet, execelin ajanlaskuhan alkaa vasta 1900 luvun alusta.
        Seitsemäs merkkihän on jos henkilö on syntynyt 1800 luvulla.
        Onnistuuko laskekeminen jos hetu on
        170496 034h

      • paavali50
        Utelias kirjoitti:

        Entäpä ennen 1.1.1900 syntyneet, execelin ajanlaskuhan alkaa vasta 1900 luvun alusta.
        Seitsemäs merkkihän on jos henkilö on syntynyt 1800 luvulla.
        Onnistuuko laskekeminen jos hetu on
        170496 034h

        Excel ei osaa suoraan laskea ennen 1.1.1900 syntyneiden ikää, mutta 1800 luvulla syntyneiden ikä saadaan kun tehdään JOS kaava joka laskee syntymäajan 1900luvulle ja lisää NYT() päivään sata vuotta(36525 päivää) mikäli seitsemäs merkki on .
        Kaava vuosina
        =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");JOS(POIMI.TEKSTI(A1;7;1)=" ";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT() 36525;"y");"")))

        päivinä
        =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");JOS(POIMI.TEKSTI(A1;7;1)=" ";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT() 36525;"d");"")))

      • Utelias
        paavali50 kirjoitti:

        Excel ei osaa suoraan laskea ennen 1.1.1900 syntyneiden ikää, mutta 1800 luvulla syntyneiden ikä saadaan kun tehdään JOS kaava joka laskee syntymäajan 1900luvulle ja lisää NYT() päivään sata vuotta(36525 päivää) mikäli seitsemäs merkki on .
        Kaava vuosina
        =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"y");JOS(POIMI.TEKSTI(A1;7;1)=" ";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT() 36525;"y");"")))

        päivinä
        =JOS(POIMI.TEKSTI(A1;7;1)="-";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");JOS(POIMI.TEKSTI(A1;7;1)="A";PVMERO(PÄIVÄYS(20&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT();"d");JOS(POIMI.TEKSTI(A1;7;1)=" ";PVMERO(PÄIVÄYS(19&POIMI.TEKSTI(A1;5;2);POIMI.TEKSTI(A1;3;2);VASEN(A1;2));NYT() 36525;"d");"")))

        Noinhan se onnistuu

    • Tinna82

      Hetun perusteella sukupuli määritellään loppuosan kolmen ensimmäisen numeron perusteella, jos numerosarja (esim hetussa 000000-453X numero 453) on parillinen, kyseessä nainen, parittomilla sarjoilla mies.

      Sukupuoli pystytään tunnistaan excelissä mm. näin, kun laittaa moneen soluun tavaraa:

      A1 =000000-453w    
      B1 =POIMI.TEKSTI(A1;8;3)/2
      C1 =OIKEA(A2;2)
      D1 =POIMI.TEKSTI(C1;1;1)
      E1 =JOS(LASKE.JOS(D1;"*,*");"mies";"nainen")

      Mutta, kuinka saan tuon kaiken laitettua yhdeksi kaavaksi? (tai vielä yksinkertaisemmin)

      • tämä ?

        =IF(ISODD(LEFT(RIGHT(A1;4);3));"mies";"nainen")

        JOS(ONPARITON(VASEN(OIKEA(A1;4);3));"mies";"nainen")

      • ei toimi.
        tämä ? kirjoitti:

        =IF(ISODD(LEFT(RIGHT(A1;4);3));"mies";"nainen")

        JOS(ONPARITON(VASEN(OIKEA(A1;4);3));"mies";"nainen")

        Ei valitetavasti toimi, tuo ISODD / ONPARITON -ei tunnu toimivan..

      • Tinna82
        ei toimi. kirjoitti:

        Ei valitetavasti toimi, tuo ISODD / ONPARITON -ei tunnu toimivan..

        Ilmeisesti tämä ei toimi 2002 excelissä..
        kokeilen johonkin soluun kaavaa =PARITON(5) palauttaa arvon #nimi

      • paavali50
        Tinna82 kirjoitti:

        Ilmeisesti tämä ei toimi 2002 excelissä..
        kokeilen johonkin soluun kaavaa =PARITON(5) palauttaa arvon #nimi

        Jos analyysityökalut ei ole käytössä ONPARITON funktio ei toimi.
        Työkalut -> Apuohjelmat -> täppä kohtaan Analyysitökalut ja OK.

        Älä sekoita
        =PARITON ja =ONPARITON funktioita

    • eno2

      Joskus takavuosina virittelin tälläisen käyttäjän funktion iän laskemiseen - paha kyllä ei ole pahemmin kommentteja mutta kyllähän tuo kai selviää.

      '*********iän lasku
      Function laske_synt(hetu, tapvm)
      Dim svv, skk, spv, tvv, tkk, tpv, oletus, ika
      svv = "19" & Mid(hetu, 5, 2)
      skk = Mid(hetu, 3, 2)
      spv = Mid(hetu, 1, 2)
      tvv = "20" & Mid(tapvm, 9, 2)
      tkk = Mid(tapvm, 4, 2)
      tpv = Mid(tapvm, 1, 2)
      oletus = tvv - svv
      ika = tvv - svv

      If skk < tkk Then
      ElseIf skk = tkk And spv > tpv Then
      oletus = ika - 1
      ElseIf skk > tkk Then
      oletus = ika - 1
      Else: oletus = ika
      End If
      laske_synt = oletus
      End Function

      '*********
      tämä kyselee, missä hetu on ja päivämäärä, minkä mukaan lasku tapahtuu (täytyy olla muodossa 01.01.2006)

      • Jaames

        Muutaman vuoden myöhässä näin töistä kiitokset Paavali50:lle :)

    • speksaaja

      Kiitos Paavali50, lopputyöni edistyi avullasi kukonaskeleen verran!
      terv. opiskelija

    • Tommi55

      Tuossapa paranneltu classic asp koodi versio
      joka tsekkaa hetun ja syötetyn päivämäärän pituuden.
      Myös erotinmerkille tehty tarkastus mukana.


      Function CalculateAge(hetu, tapvm)

      Dim yearPrefix
      Dim svv, skk, spv, tvv, tkk, tpv, oletus, ika

      If Len(Trim(hetu)) = 11 And Len(Trim(tapvm)) = 10 Then

      yearPrefix = Mid(hetu, 7, 1)

      'response.write yearPrefix
      'response.end

      If yearPrefix = "A" Then
      yearPrefix = "20"
      ElseIf yearPrefix = "-" Then
      yearPrefix = 19
      Else
      yearPrefix = "?"
      End If

      If yearPrefix "?" Then

      svv = yearPrefix & Mid(hetu, 5, 2)
      skk = Mid(hetu, 3, 2)
      spv = Mid(hetu, 1, 2)

      tvv = "20" & Mid(tapvm, 9, 2)
      tkk = Mid(tapvm, 4, 2)
      tpv = Mid(tapvm, 1, 2)
      oletus = tvv - svv
      ika = tvv - svv

      If skk < tkk Then
      ElseIf skk = tkk And spv > tpv Then
      oletus = ika - 1
      ElseIf skk > tkk Then
      oletus = ika - 1
      Else: oletus = ika
      End If

      CalculateAge = oletus

      Else
      CalculateAge = "?"
      End If
      Else
      CalculateAge = "?"
      End IF

      End Function

    • Anonyymi

      Syntynyt 5.1.1879
      Kuollut21.4.1962
      Miten lasketaan ikä exelillä?

      • Anonyymi

        Riippuu siitä kuka on kuollut.

      • Anonyymi

        Isompi luku miinus pienempi luku.

      • Anonyymi
      • Anonyymi
    • Anonyymi

      Helppo homma, kerron joskus.

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 4 tuntia töitä kerran viikossa on naisen mukaan liian raskasta

      Tämä ei taija olls lieksalaine vaikka "tuntomerkkiin" perusteella nii vois eppäillä! 🤣 31-vuotias Maya ei kykene tekemä
      Lieksa
      91
      4286

    2. Baaritappelu

      Hurjaksi käynyt meno Laffassa. Jotain jätkää kuristettu ja joutunu teholle...
      Kokkola
      43
      4202

    3. Riikka Purra rosvosi eläkeläiset!

      1900 euron eläkkeestä rosvottiin 350 euroa. Kohtuullista vai? Perussuomalaisia ei enää ole olemassa meille eläkeläisille
      Maailman menoa
      612
      3966

    4. Tappo Kokkolassa

      Päivitetty tänään Iltalehti 17.04.2024 Klo: 15:23..Mikähän tämä tapaus nyt sitten taas on.? Henkirikos Kokkolassa on tap
      Kokkola
      23
      2807

    5. Näytit nainen sanoinkuvaamattoman ihanalta

      En voi unohtaa sinua. Pohdin nyt sinua.
      Ikävä
      79
      2521

    6. Ihastuksesi persoonalliset piirteet ulkonäössä?

      Onko jotain massasta poikkeavaa? Uskallatko paljastaa? Aloitan; todella kauniit kädet ja sirot sormet miehellä.
      Tunteet
      128
      2108

    7. SDP:n kannatus edelleen kovassa nousussa, ps ja kokoomus putoavat

      SDP on noussut Helsingin Sanomien tuoreessa kannatuskyselyssä kokoomuksen ohi Suomen suosituimmaksi puolueeksi. SDP:n ka
      Maailman menoa
      340
      2084

    8. Kansaneläkkeiden maksu ulkomaille loppuu

      Hyvä homma! Yli 30 miljoonan säästö siitäkin. Toxia.
      Maailman menoa
      195
      2003

    9. Ketä ammuttu ?

      Ketä sielä Juupajoela ammuttu ei kait mainemies alkanu amuskelemaan , , Kyösti H ?
      Juupajoki
      28
      1649

    10. Nainen, meistä tulisi maailman ihanin pari

      Mutta tosiasiat tosiasioina, on liian monta asiaa, jotka sotivat meidän yhteistä taivalta vastaan. Surulla tämän sanon,
      Ikävä
      66
      1442
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt