Alder: År- måneder-dage

dags dato: =IDAG()

Det skyldes formentlig at der var 53 uger i 2005. Det er årsagen til regnefejlen. Hvis du i stedet for prøver at skrive 26-10-04, så regner den rigtig. For at få det rigtige resultat er du nødt til at "fuske".

26-10-04/22-03-90: 4 dage 7 md 14 år men excel siger 6 dage 8 md 14 år, så den er da helt skæv

Hvordanser din formel ud?

c1(formateret som dato): =b1-a1

Problemet er, at den formel giver dig det samlede antal dage. Så skal du selveregne videre om til år, måneder og dage. Når du får 15 01 04 er det et tilfælde. Det betyder i virkeligheden 15. januar 1904 og er den dato, der svarer forskellens serienummer, nemlig 5483.

Du kan bruge denne funktion i stedet. Læg funktionen ind i et modul, og brug den som alle andre indbyggede funktioner:

Function Alder(Date1 As Date, Date2 As Date) As String
    Dim Y As Integer
    Dim M As Integer
    Dim D As Integer
    Dim Temp1 As Date
    Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1))
    Y = Year(Date2) - Year(Date1) + (Temp1 > Date2)
    M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2))
    D = Day(Date2) - Day(Date1)
    If D < 0 Then
        M = M - 1
        D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1
    End If
    Age = Y & " år " & M & " måneder " & D & " dage"
End Function

Sorry:

Function Alder(Date1 As Date, Date2 As Date) As String
    Dim Y As Integer
    Dim M As Integer
    Dim D As Integer
    Dim Temp1 As Date
    Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1))
    Y = Year(Date2) - Year(Date1) + (Temp1 > Date2)
    M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2))
    D = Day(Date2) - Day(Date1)
    If D < 0 Then
        M = M - 1
        D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1
    End If
    Alder = Y & " år " & M & " måneder " & D & " dage"
End Function

jkrons> Må jeg foreslå, at det kunne betyde 4. januar 1915.

Selvfølgelig, det er bare mig, der vrøvler :-)

Jeg markerer funktionen, ctrl c og sætter jeg den ind...Jkrons gider du fortsætte beskrivelsen

Marker funktionen. Ctrl+C. Vælg Funktioner - Makro - visial Basic Editor. Klik på Insert - Module. I modulet, der nu kommer frem trykker du Ctrl+V.

I regnearket har du dine datoer i A1 og B1 og i C1 skriver du =Alder(A1;B1)

Og husk, det skal være det sidste eksempel, ikke det første.

Hvis du hellere vil have det som en formel, kan du brugev denne her i C1:

=ÅR(B1)-ÅR(A1) & " år, " & MÅNED(B1)-MÅNED(A1) & " måneder, " & DAG(B1)-DAG(A1) & " dage"

Glem den sidste. Den virker kun i nogle tilfælde.

Når jeg kopirer og sætter ind, kommer dette resultat: #Navn?

Det falder mig ind: Det er en dansk excel, jeg bruger!

Det skyulle ikke have noget at sige. Makroer er under alle omstændigheder på engelsk.

Du skriver =Alder(A1;B1) i C1?

Og funktionen starter med navnet Function Alder?

15:09:53 Den virker i hvert fald i nogle tilfælde (Det anførte i den oprindelig opgave)

Ja, men desværre ikke hvis statdatoen ligger efter slutdatoen. Fx 27-03-90 til 26-03-05 giver 15 år, 0 måneder og -1 dag, og selv om det er rigtigt, er det jo ikke sådan, at du vil have det :-)

Det virker efter korrektion af et kolon/semikolon
Tak for hjælpen.
Hvis du lægger et svar!

Velbekomme :-)