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

6842

    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. Martinan firma haastettiin käräjille

      Seiska: Martinan firma haastettiin käräjille, taustalla outo rahasotku.
      Kotimaiset julkkisjuorut
      327
      2616
    2. Veriteko Kajaanissa.

      Nuorta naista epäillään puukotuksesta. Väkivaltaisuus lisääntyy, eihän ole kauan kun kyse oli samanlaisesta teosta.
      Kajaani
      28
      1831
    3. Anna vihje jonka vain te tiedätte

      Tällä näkyy olevan monia etsijöitä ja kaipaajia. Otetaan ketju jossa voi antaa vihjeen. Kirjoittakaa jotain mitä muut e
      Ikävä
      125
      1579
    4. Miksi haluat satuttaa

      Sillä tiedolla ettet välittäisi minusta vaikka se ei ole totta. Silti tiedän että rakastat minua edelleen. Niinkuin sano
      Ikävä
      51
      1417
    5. Olet kamalin ihminen mitä tiedän M

      Toivottavasti ei ikinä nähdä enää.
      Ikävä
      68
      939
    6. Millaisiin naisiin miehet OIKEASTI hullaantuvat

      Kerrotaanpa nyt muutamia tosiasioita, joita miehet eivät yleensä halua myöntää ja joihin naiset usein haluavat olla usko
      Sinkut
      158
      905
    7. Mitä sanoisit jos uskaltaisin

      Avautua IRL ihan oikeasti? Mietin keinoja siihen koska en vain enää jaksa että meidän välit jatkuu näin. Tiedän ettet ha
      Ikävä
      69
      894
    8. Mikä sai sut

      Rakastumaan häneen ja miten pitkään siinä meni? Mikä nyt on tilanne?
      Ikävä
      55
      820
    9. Taitaa olla kaikki ohi

      Meidän väliltä.
      Ikävä
      62
      813
    10. Farmi Suomi: Ari Koivunen tekee "ongelmallisen" päätöksen eläimille - Lloyd Libiso kieltää jyrkästi!

      Oho, heti “kriisiä” pukkaa Farmilla! Uusi kausi starttaa tv:ssä torstaina. Jaksaako Farmi Suomi kiinnostaa? Lue lisää,
      Tv-sarjat
      14
      799
    Aihe