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
7
1018
Vastaukset
- 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
Miksi persuilla ei ole firmoja?
Kuten vasemmisstolaisilla, esim. Sannalla MA\PI. Eikö ole aika erikoista?827076Persut hommasivat Suomeen 35 000 pientä lasta v. 2015
Onko Riikka Purra nyt tavoittelemassa tätä samaa historiallista persujen utopiaa? Purram kaksinaamaisessa pelissä vaadit267043Purran tuhoja tuskin saadaan koskaan korjatuksikaan
Purra on aiheuttanut Suomen taloudelle karmaisevat tuhot. Sen lisäksi Purra on ajanut myös suuren osan Suomen kansasta k1066143Persujen kaksoisstandardit: Räsäsen uhkailu paha, Virran uhkailu hyvä
Tässä taas nähdään kuinka kaksinaamaista porukkaa persut ovat. Mitäs persut tähän?455394Miksette persut irtisanoudu Kirkin lausunnoista?
Kirkhän muun muassa vaati raiskattuja naisia pidättäytymään abortista ja vaimoja alistumaan aviomiestensä tahtoon. Mik845228Demarikultin uhri kertoo
Demarikultin uhri kertoo: “En saanut mennä edes suihkuun ilman lupaa” – Seksuaalisen hyväksikäytön uhri kertoo vuosistaa625182Miksi vasemmistolaiset eivät omista yhtään firmaa?
Vasemmistolaiset eivät omista yhtään firmaa joka työllistäisi ihmisiä. Miksi? No siksi, että jos vasemmistolainen perus405098Sanna valittiin Euroopan huonoimmaksi pääministeriksi
Sannan kaudella Suomi oli ainut maa missä bkt laski. Kannattaa huomata, että luvut valitsi Sannan huonoimmaksi. Ihmiset274585Purran vuoro kiihoittua Lepomäen sääristä
"Ulkoministeri Elina sanoo, ettei muuta pukeutumistaan sen mukaan, kenet tapaa, ja että hän ei suostuisi peittämään kasv163457Vasemmistolaiset paskat eivät nousseet seisomaan kun Akaan kaupunginvaltuusto
vietti hiljaisen hetken Charlie Kirkin muistoksi https://www.aamulehti.fi/uutiset/art-2000011523016.html3003370