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

1007

Ää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. Oletko kertonut jo muille tunteistasi?

      Ystävillesi esimerkiksi? Minä en ole vielä kertonut kenellekään tästä meidän jutusta.
      Ikävä
      77
      4622

    2. Olisin ottanut sinusta akan itselleni

      Mutta olitkin aika itsepäinen ja hankala luonne.
      Ikävä
      180
      1897

    3. Ei sua pysty unohtamaan

      Ei vaan yksinkertaisesti pysty
      Ikävä
      124
      1590

    4. Kerro todelliset motiivit

      kaivattuasi kohtaan?
      Ikävä
      124
      1125

    5. Miten minusta tuntuu että kaikki tietää sun tunteista mua kohtaan

      Paitsi suoraan minä itse, vai mitä hlvettiä täällä tapahtuu ja miksi ihmiset susta kyselee minulta 🤔❤️
      Ikävä
      16
      1061

    6. Hei, huomenta komistus

      Yllättääkö, että olet heti mielessä. Mukavaa päivää upea ❤️
      Ikävä
      35
      1036

    7. Sunnuntain terveiset kaivatulle

      Mitä ajattelet hänestä tänään? Mitä haluaisit sanoa hänelle?
      Ikävä
      78
      933

    8. Miks et tahtonut

      Enää nähdä? Haluaisin ymmärtää
      Ikävä
      52
      896

    9. Hyvää huomenta!

      Mietin miten suhtaudut minuun, jos kerron tunteista. Voinko enää sen jälkeen olla samassa paikassa kanssasi, jos koet as
      Ikävä
      78
      872

    10. Mulla on tarkat korvat

      Kuulin sun äänen ihan selvästi.
      Ikävä
      4
      828
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt