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

968

    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ä.

    Luetuimmat keskustelut

    1. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      86
      2341
    2. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      19
      2272
    3. Vanhalle ukon rähjälle

      Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen
      Ikävä
      19
      1818
    4. Oletko sä luovuttanut

      Mun suhteeni
      Ikävä
      105
      1477
    5. Maisa on SALAKUVATTU huumepoliisinsa kanssa!

      https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663
      Kotimaiset julkkisjuorut
      76
      1472
    6. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      162
      1253
    7. Aatteleppa ite!

      Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.
      Maailman menoa
      257
      1042
    8. Mitä sanoisit

      Ihastukselle, jos näkisitte?
      Tunteet
      68
      969
    9. Onko se ikä

      Alkanut haitata?
      Ikävä
      78
      919
    10. Omalääkäri hallituksen utopia?

      Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha
      Maailman menoa
      174
      903
    Aihe