Henkilötunnus syntymäajaksi

Kvolgins

Osaisiko joku kirjoittaa kaavan, jolla saan muunnettua suomalaisen henkilötunnuksen syntymäajaksi eli esim. hetu 080381-308T muotoon 08.03.1981. Makrolla tehden on vähän raskas homma.

Ja sitten vielä kaava, joka laskisi henkilötunnuksen loppuosasta sukupuolen ja merkkaisi sen omaan sarakkeeseen MIES tai NAINEN. Sukupuolitietohan on yksilönumerossa, jotka ovat henkilötunnuksen loppuosan kolme ensimmäistä merkkiä. Viimeinen merkki on tarkistusmerkki. Esimerkissäni henkilö on siis nainen = 308.

7

6770

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vois käyttää

      ainakin Even ja Odd toimintoja, Even eli parillinen luku (sukupuoli = nainen), Odd eli pariton luku (sukupuoli = mies).

      Siinä vaan sitten pitää jotenkin saada napsittua hetun loppuosasta se toiseksi viimeinen merkki, eli siis se merkki ennen tarkistusmerkkiä.

      Sitä en tiedä miten sen voisi tehdä, ehkä basicia käyttäen? Tosin en ole officen basic-variantin kanssa tehnyt koskaan mitään....tavallisessa basic-ohjelmoinnissa sen voisi tehdä niin että

      HETU$="080381-308T" ' ensin sijoitetaan HETU-merkkijonoksi
      L1=LEN(HETU$) ' mitataan HETU-merkkijonon pituus
      Sex$=Right$(HETU$, 2) ' otetaan HETU-merkkijonosta kaksi viimeistä merkkiä ja sijoitetaan SEX-merkkijonoon

      Sex$=Left$(Sex$,1) ' napsitaan SEX-merkkijonon joka on 2 merkkiä pitkä, vasemmanpuoleinen merkki joka ilmaisee sukupuolen

      S1=CVI(Sex$) ' muunnetaan 1 mrk pitkä merkkijono numeroksi

      ---

      Tuota samaa kaavaa voisi noudattaa myös syntymäajan purkamisessa niin että se...hetkinen...ehkäpä myös Format-käsky voisi tulla kyseeseen. HUOM! Format ei Basic-kielessä tarkoita levyn formatointia vaan merkkijonojen "formatointia" elikkä uudelleen muotoilua! Eli on turhaa kuvitella että Basicin Formatilla pystyisi alustamaan levyjä. :D Format-käskyä voidaan käyttää esim. päivämäärien muotoilussa.

      Google selventää tarkemmin kun haet kyseistä käskyä ja laitat hakusanan perään vielä basic

      • Kvolgins

        jotain tuon suuntaista olen yrittänyt vääntää, mutta ei ole oikein onnistunut. Jatkan harjoituksia.


    • koetat vaikka

      näillä
      =LEFT(A1;2)&"."&MID(A1;3;2)&"."&IF(MID(A1;7;1)="-";"19";IF(MID(A1;7;1)=" ";"18";"20"))&MID((A1);5;2)
      =IF(ISEVEN(MID(A1;8;3));"Nainen";"Mies")

      • ei sitten

        varmaan toimineet...ei ole kommentteja näkynyt...


      • Jani1818

        hyvin toimi tuo =IF(ISEVEN(MID(A1;8;3));"Nainen";"Mies"), kiitos!


    • Hki_kaupunki

      =JOS((ONPARILLINEN(E506))=TOSI;"Nainen";"Mies")
      Kaavasta E506 korvataan sillä solulla, jossa hetu on.

    • aivot_solmussa

      Jos joku tätä yrittää tehdä, niin tässä kaava suomenkieliseen:
      =JOS(ONPARILLINEN(POIMI.TEKSTI(D1898;8;3));"nainen";"mies")
      Tuo D1898 on solu, jossa HETU on.

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

    Luetuimmat keskustelut

    1. Järkyttävä tieto Purrasta

      Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.
      Maailman menoa
      233
      5260
    2. Näin asia on

      Tiedän ettei hän koskaan aio lähestyä minua eikä niin ole koskaan aikonutkaan, eikä lähesty ja enkä minä enää tee sitä k
      Ikävä
      23
      3700
    3. Taas varoitusta lumesta ja jäästä

      Ai kauhea! Vakava säävaroitus Lumi-/jäävaroitus Varsinais-Suomi, Satakunta, Uusimaa, Kanta-Häme, Päijät-Häme, Pirkanmaa,
      Maailman menoa
      18
      2184
    4. Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan

      Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E
      Maailman menoa
      279
      2123
    5. Aavistan tai oikeastaan

      tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast
      Ikävä
      46
      1378
    6. Mistä erotat onko joku kiinnostunut vai muuten mukava?

      Voi sekaantua yleiseen ystävällisyyteen vai voiko?
      Suhteet
      161
      1249
    7. Poliisi tahtoo pääsyn 4 miljoonan suomalaisen sormenjälkiin.

      https://www.is.fi/digitoday/art-2000011009633.html Tämä sormenjälkiin poliisin pääsy on erittäin tärkeä rikollisten kiin
      Maailman menoa
      128
      1131
    8. Örebro kuolleet lisääntyy.

      Nyt n, 10. Mitähän vielä. Haavoittuneet?. Kuka on ampuja, salaisuus.
      Maailman menoa
      116
      946
    9. Sulla on upeat pakarahalihakset

      todella hyvä muoto...
      Ikävä
      34
      900
    10. Tiistaipäivää pakkastakin on

      Hyvää päivää huomentakin. Olin vähän kaupungilla käymässä 😊❤️🌞❄️☕
      Ikävä
      196
      804
    Aihe