Päivämäärä luvuksi

Meio123

Taulukossa on kirjoitettuna päivämäärä muotoon 10.10.1985.

Tämä pitäisi saada _luvuksi_ muotoon 101085. Excelin oma matematiikka ei tässä oikein toimi, kun se laskee päivät yhteen vuodesta 1900 asti. Kuinka onnistuu? (näitä on useita eikä ole aikaa kirjoittaa kaikkia käsin)

3

1077

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...

      Option Explicit

      Function Pvmluvuksi(Solu As Range) As Double
      Pvmluvuksi = CDbl(Day(Solu) & Month(Solu) & Format(Solu, "yy"))
      End Function

      Sub koe()
      ActiveCell = Pvmluvuksi(ActiveCell)
      ActiveCell.NumberFormat = "General"
      End Sub

      2 tapaa käyttää , joko

      1. Aktivoi solu ja suorita makro Koe (tee nappi makrolle)

      2. Solu mihin haluat tuloksen kirjoita kaava esim arvo solusta C1 =Pvmluvuksi(C1)

      jos luvut esim tietyssä sarakkeessa, niin silloin voisi tehdä aluemakron ja ei tartteisi yksitellen napsutella


      Keep EXCELing
      @Kunde

    • AjaKarille

      Hyvä ohjelmoitu funktio. Toinen vaihtoehto on funktioiden käyttö seuraavasti.
      =POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");1;2)&POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");4;2)&POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");7;2)

      Kaava kopioidaan soluun B1 ja alkuarvo on solussa A1. Tämä toimii aina samalla tavalla, oli lähtöarvo 1.1.2001 tai 15.12.2009. Antaa siis tulokseksi 6 merkkiä pitkän merkkijonon.

      • kunde

        turhan monimutkaista edellinen....
        =TEKSTI(A1;"ppkkvv")

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      333
      12085

    2. Suomea odottaa karu kohtalo

      Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.
      Maailman menoa
      420
      3418

    3. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      95
      1868

    4. Kuka on oikein

      Kaivattusi?
      Ikävä
      89
      1646

    5. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1633

    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      94
      1132

    7. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      41
      1101

    8. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      73
      937

    9. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      933

    10. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      253
      907
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt