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...
access kaava
Nimetön
71053
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 7
Vanhimmat
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.
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').
Kiitos,nyt toimii. Tuo "suurinpiirtein" tarkkuuskin riittää mainiosti.
"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])
...mutta taidanpa kuitenkin tyytyä tuohon suurinpiirtein arvoon...kiitti kuiteskin.