access kaava

Nimetön

Access-tietokannassa on henkilöryhmä, josta tiedetään syntymäajat. Kuinka lasketaan kunkin henkilön ikä muodossa pp.kk.vv ja koko ryhmän keski-ikä? Ohjeet mielellään täydellisen aloittelijankin ymmärtämässä muodossa, kiitos...

7

1014

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • mmm

      Lisää kyselyn rakennenäkymään taulu, jossa on ne syntymäajat. Raahaa sarakeruudukkoon henkilön nimi. Lisää laskettu kenttä IKA: Date()-[SyntAika]. Laita kenttämuotoiluksi 'vv.kk.pp'

      Luo toinen kysely laskeaksesi keski-iän. Lisää rakennenäkymässä jälleen taulu, jossa on syntymäajat. Lisää pelkkä laskettu kenttä IKA: Date()-[SyntAika]. Paina työkalurivin 'Näytä Summat'-painiketta ja valitse 'Summat:'-riville laskentamuodoksi 'Keskiarvo'. Laita kenttämuotoiluksi 'vv.kk.pp'

      Näin saat iän suurinpiirtein. Todellisen iän laskemiseen tarvitaan funktiota.

      • Nimetön

        Kiitos vastauksesta. Kerros vielä mihin tuossa ekassa kyselyssä laitetaan tuo muotoilumääritys? En löydä mitään "muotoilu-määritys-kenttää"...

      • mmm
        Nimetön kirjoitti:

        Kiitos vastauksesta. Kerros vielä mihin tuossa ekassa kyselyssä laitetaan tuo muotoilumääritys? En löydä mitään "muotoilu-määritys-kenttää"...

        Klikkaa rakennenäkymässä kenttäruudukossa haluamaasi kenttää (sitä laskettua) hiiren kakkospainikkeella, valitse ponnahdusikkunasta 'Ominaisuudet'.

        Ominaisuudet-ikkunassa on kenttämuotoilun valinta ('Muoto').

      • Nimetön
        mmm kirjoitti:

        Klikkaa rakennenäkymässä kenttäruudukossa haluamaasi kenttää (sitä laskettua) hiiren kakkospainikkeella, valitse ponnahdusikkunasta 'Ominaisuudet'.

        Ominaisuudet-ikkunassa on kenttämuotoilun valinta ('Muoto').

        Kiitos,nyt toimii. Tuo "suurinpiirtein" tarkkuuskin riittää mainiosti.

      • Nimetön
        mmm kirjoitti:

        Klikkaa rakennenäkymässä kenttäruudukossa haluamaasi kenttää (sitä laskettua) hiiren kakkospainikkeella, valitse ponnahdusikkunasta 'Ominaisuudet'.

        Ominaisuudet-ikkunassa on kenttämuotoilun valinta ('Muoto').

        "Nälkä kasvaa syödessä" eli viitsisitkö vielä antaa sen tarkan kaavan tai funktion, mikä sitten lieneekään, jolla saa täsmällisen tuloksen....tuo edellinenhän näyttää antavan yhden kuukauden liikaa...

      • mmm
        Nimetön kirjoitti:

        "Nälkä kasvaa syödessä" eli viitsisitkö vielä antaa sen tarkan kaavan tai funktion, mikä sitten lieneekään, jolla saa täsmällisen tuloksen....tuo edellinenhän näyttää antavan yhden kuukauden liikaa...

        Moduliin funktio:

        Public Function Ika(dSP As Date, Optional dPvm As Date = 0) As Date
        ' Välitetään parametreina syntymäpäivä, haluttaessa loppupäiväys
        ' Palauttaa päivämäärämuodossa iän
        Dim iV As Integer, iK As Integer, iP As Integer, dTmp As Date
        If dPvm = 0 Then dPvm = Date
        iV = DateDiff("yyyy", dSP, dPvm)
        If dSP > DateSerial(Year(dSP), Month(dPvm), Day(dPvm)) Then iV = iV - 1
        dTmp = DateSerial(Year(dSP) iV, Month(dSP), Day(dSP))
        iK = DateDiff("m", dTmp, dPvm)
        If Day(dPvm) < Day(dSP) Then iK = iK - 1
        dTmp = DateAdd("m", iK, dTmp)
        iP = DateDiff("d", dTmp, dPvm)
        Ika = DateSerial(1900 iV, iK, iP)
        End Function

        Kyselyn rakennenäkymään kenttäruudukkoon: IKA: =Ika([SyntAika])

      • Nimetön
        mmm kirjoitti:

        Moduliin funktio:

        Public Function Ika(dSP As Date, Optional dPvm As Date = 0) As Date
        ' Välitetään parametreina syntymäpäivä, haluttaessa loppupäiväys
        ' Palauttaa päivämäärämuodossa iän
        Dim iV As Integer, iK As Integer, iP As Integer, dTmp As Date
        If dPvm = 0 Then dPvm = Date
        iV = DateDiff("yyyy", dSP, dPvm)
        If dSP > DateSerial(Year(dSP), Month(dPvm), Day(dPvm)) Then iV = iV - 1
        dTmp = DateSerial(Year(dSP) iV, Month(dSP), Day(dSP))
        iK = DateDiff("m", dTmp, dPvm)
        If Day(dPvm) < Day(dSP) Then iK = iK - 1
        dTmp = DateAdd("m", iK, dTmp)
        iP = DateDiff("d", dTmp, dPvm)
        Ika = DateSerial(1900 iV, iK, iP)
        End Function

        Kyselyn rakennenäkymään kenttäruudukkoon: IKA: =Ika([SyntAika])

        ...mutta taidanpa kuitenkin tyytyä tuohon suurinpiirtein arvoon...kiitti kuiteskin.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      64
      3305

    2. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3117

    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      43
      2498

    4. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      108
      2356

    5. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1923

    6. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      27
      1820

    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1626

    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      85
      1425

    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      39
      1300

    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      82
      1159
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt