anne_n_d Novice
27. maj 2020 - 02:06 Der er 5 kommentarer

VBA: hvordan beregner man alder ud fra fødselsdagdato

Jeg skal beregne alder ud fra fødselsdagdatoer. Har mange datoer.

Alle de dato ligger kolonne A2:A35 og alder skal indsættes i B2:B35.

Har prøvet en hel masse koder til det, men ingen af dem har givet en resultat.
Den skal laves i VBA

Så plz hjælp med det :)

På forhåndt tak
perhol Mester
27. maj 2020 - 08:56 #1
Har ikke prøvet en VBA metode, men det kan gøres med en formel.
Sæt nedenstående formel ind i B2 og træk ned så langt du har behov for:
=DATO.FORSKEL(A2;IDAG();"y") & " År, " & DATO.FORSKEL(A2;IDAG();"ym")& " Måneder og " & (DAG(IDAG())-DAG(A2)+HVIS(DAG(IDAG()) < DAG(A2);30;0)) & "
Jan K Ekspert
27. maj 2020 - 09:49 #2
#1 Vær opmærksom på, at der er nogle uhensigtsmæssigheder i DATO.FORSKEL funktionen

http://kronsell.net/hemmeligExcel.htm
Jan K Ekspert
02. juli 2020 - 00:53 #3
Jeg havde helt glemt denne, så jeg ved ikke om du stadig skal bruge en løsning, men prøv med

Function Alder(Dato As Date) As Integer
    If Month(Dato) > Month(Date) Or Month(Dato) = Month(Date) And Day(Dato) > Day(Date) Then
        Alder = DateDiff("yyyy", Dato, Now) - 1
    Else
        Alder = DateDiff("yyyy", Dato, Now)
    End If
End Function

Forudsætter at fødselesdagene er indtastet i Excels datoformat, altså d-m-åå.
claes57 Ekspert
02. juli 2020 - 09:36 #4
jeg har en fødselsdagskalender i excel
A navn
B fødseldato
C alder
D hvis fødselsdag i aktuelle måned

B2 er fx 19-07-1961
C2 er =ÅR(IDAG())-ÅR(B2)+HVIS(MÅNED(B2)<MÅNED(IDAG());0;-1)
D2 er =HVIS(MÅNED(B2)=MÅNED(IDAG());C2+1&" år den "&DAG(B2)&".";"")
B2 viser 58, og D2 viser 59 år den 19.
Jan K Ekspert
02. juli 2020 - 10:06 #5
Her er endnu en variant med VBA

Public Function Alder(datFoed As Date) As Integer
'Beregn alder ud fra en fødselsdag
'Funktionen kan kaldes med fødselsdagen som argument

    Alder = Right(DatePart("yyyy", Date - datFoed), 2)
End Function
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Coloplasts it-direktør: GDPR har givet de it-kriminelle et nyt værktøj til at angribe os
Interview: Det er ikke kun på plads og kapacitet, at sundhedssektoren lige nu er udfordret. De sikkerhedsansvarlige har også fået en del mere at se til gennem et kaotisk 2020. "Cyberkriminelle har opdaget, at der er en hel masse værdi i denne her datatype. Enten som afpresningsmulighed eller som viden, de kan udnytte til noget," siger CIO i Coloplast, René Rasmussen.


Læs første artikel i serien om perspektiver fra sektoren, der er de it-kriminelles nye guldkalv
Computerworld
Intel taber retssag og skal betale to milliarder dollar: "Det er skandaløst"
Chipgiganten Intel har tabt en retsag i USA, og er blevet idømt en bøde på hele 2,1 milliarder dollar. Det er en af de største bøder for en patentsag i USA's historie.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
IBM Danmark trækker tilbud om frivillige fratrædelser tilbage for stort antal ansatte: "IBM har taget røven på sine ansatte"
Som led i IBM Danmarks store fyringsrunde fik 130 ansatte grønt lys til at forlade selskabet på en frivillig fratrædelsesordning. Men nu har IBM Danmark trukket det oprindelige tilbud tilbage for størstedelen af de ansatte.
White paper
Infrastruktur: Byg et velfungerende Data Estate i otte trin
Mange virksomheder trækker på så mange og righoldige datakilder, at det bliver stadig sværere at holde rede på alle de informationer, man har. Samtidig lever et traditionelt data warehouse sjældent op til hverken de aktuelle eller – i særdeleshed – fremtidige krav fra forretningen. Løsningen er at udvide til en egentlig Data Estate; et stykke kritisk infrastruktur som gør det muligt at opbevare, organisere, konsolidere og analysere organisationens samlede datamængde. Denne hvidbog giver et samlet billede af, hvordan man gennem otte trin bevæger sig mod at implementere og drage nytte af en Data Estate. Samt hvordan du prioriterer indsatsen, så den giver størst værdi for forretningen.