[ASP] Verschil tussen 2 datums in jaar, maand en dagen

[Urk]

Heb de search en Google al gebruikt hiervoor, het vreemde is echter dat ik nergens een resultaat of code vindt die dit klaar kan spelen.

Ik wil namelijk in ASP (dus niet in ASP.NET of PHP) het verschil berekenen tussen 2 datums, maar niet met DateDiff() waar je maar 1 output methode krijgt (zoals bijv. alleen dagen of uren) maar ik wil het verschil in Jaren, maanden en dagen.
Dus als begindatum 24/04/2005 en einddatum 10/03/2007 dan moet de uitkomst zijn:

Verschil is: 1 jaar, 10 maanden en 16 dagen.

En als begindatum 12/07/2005 en einddatum 15/08/2005 dan moet de uitkomst zijn:

Verschil is: 1 maand en 3 dagen.

Dit is een eerder topic met de vraag van de TS die overeenkomt met mijn vraag hierboven, echter in dit topic is geen oplossing te vinden in ASP.
Het vreemde vind ik ook dat ik NERGENS op internet een voorbeeld hiervan vind, wel veel mensen die er naar vragen maar nergens een juiste oplossing...

Heb ook zelf al wat geprobeerd maar kom er gewoon niet uit..

Is er iemand die me hiermee op weg kan helpen want ik zit met de haren in m'n hoofd...

[DeverauX]

En als je nou met datediff eerst het verschil in jaren bekijkt, vervolgens in maanden, dan in dagen, en vervolgens op deze manier het exacte verschil bepaald?
Beetje crappy uitgelegd, maar als je dus bijvoorbeeld datediff in maanden doet, krijg je bij de eerste als het goed is 22 maanden terug. Nu weet je dat dit 1 jaar en 10 maanden is. Hetzelfde doe je met het aantal dagen.

[sig69]

Waarom staat ongeveer schuin gedrukt? Hoeft het niet precies? Dan kan je toch gewoon het aantal dagen delen?
Anders zou je het inderdaad op DeverauX z'n manier kunnen doen:

code:

jaren = datediff( dEnd, dStart, year)
maanden  = datediff( dEnd - jaren, dStart, month)
dagen = datediff( dEnd - jaren - maanden, dStart, day)

[Jaspertje]

Heb je er iets aan als je het aantal dagen weet?

[Urk]

sig69 schreef op vrijdag 29 april 2005 @ 09:42:
Waarom staat ongeveer schuin gedrukt? Hoeft het niet precies? Dan kan je toch gewoon het aantal dagen delen?
Anders zou je het inderdaad op DeverauX z'n manier kunnen doen:

code:

jaren = datediff( dEnd, dStart, year)
maanden  = datediff( dEnd - jaren, dStart, month)
dagen = datediff( dEnd - jaren - maanden, dStart, day)

Dit staat schuin gedruk omdat je het op 2 manieren kan berekenen.
Een maand heeft namelijk een variabel aantal dagen.
Het lijkt mij dat je deze op 2 manieren kan doen:

12/07/2005 en einddatum 15/08/2005

1 maand en 3 dagen
of
31 dagen

Hmm...achteraf is dit een beetje onzin, als je uitgaat van 12/07/2005 t/m 12/08/2005 is dat altijd 1 maand, ongeacht of er 30 of 31 dagen in die maand zitten.
Never mind dus.
Ik heb het ongeveer al weggehaald...

[Reptile209]

Dubbelcheck het even, maar volgens mij kan je het heel makkelijk uitrekenen als je de start- en einddatum eerst splitst in dagen, maanden en jaren:

code:

jaren = jaar_eind - jaar_begin

maanden = maand_eind - maand_begin
als (maanden < 0) dan
  jaren = jaren -1
  maanden = 12 - maanden

dagen = dag_eind - dag_begin
als (dagen < 0) dan
  maanden = maanden -1
  als (maanden < 0) dan
    jaren = jaren -1
    maanden = 12 - maanden
  dagen = dagen_in_beginmaand - dag_begin + dag_eind

Wat je dus even moet maken is een array met de dagen in iedere maand voor de laatste bewerking. Verder is het nog wel nuttig (misschien) om een check in te bouwen dat de datums op de goede volgorde worden aangeboden. En dan heb je netjes uitgesplitst wat je wil hebben.

[Urk]

En ziedaar het resultaat!
Het is gelukt, jullie allemaal dank voor jullie hulp.
Onderstaande code vergelijkt dus 2 data en laat het verschil zien in jaren, dagen en maanden.
Hij trekt de begin jaren en maanden van de einddatum af, vervolgens de dagen die dan overblijven zijn resterende dagen.
De code houdt tevens rekening met schrikkeljaren.
Het enige wat ik er nu nog aan verander is dat de functie nog moet controleren dat de begindatum voor de einddatum ligt en ze anders omdraait.

Suggesties voor (snelheids)verbeteringen zijn natuurlijk altijd welkom, en ook eventuele fouten hoor ik graag. Heb de code met verschillende data getest en leken allen goed te gaan.

ASP:

startdate = CDate("24/04/2005")
enddate = CDate("27/08/2006")

Response.Write "Startdatum: " & startdate & "<br>"
Response.Write "Einddatum: " & enddate & "<br><br>"

jaren = DateDiff("yyyy", startdate, enddate)
maanden = DateDiff("m", startdate, enddate)
jaren = Fix(maanden / 12)
maanden = maanden Mod 12

Do While Not DatePart("m", startdate) & "/" & DatePart("yyyy", startdate) = DatePart("m", enddate) & "/" & DatePart("yyyy", enddate)
 startdate = DateAdd("m", 1, startdate)
Loop

If DatePart("d", enddate) < DatePart("d", startdate) Then
 testdatum = DateAdd("m", -1, startdate)
 dagen = DateDiff("d", testdatum, enddate)
 maanden = maanden - 1
Else
 dagen = DateDiff("d", startdate, enddate)
End If

If jaren > 0 Then
 If jaren = 1 Then
  aantaljaren = "1 jaar"
 Else
  aantaljaren = jaren & " jaren"
 End If
 If maanden > 0 AND dagen = 0 Then
  aantaljaren = aantaljaren & " en "
 ElseIf maanden > 0 AND dagen > 0 Then
  aantaljaren = aantaljaren & ", "
 End If
End If
If maanden > 0 Then
 If maanden = 1 Then
  aantalmaanden = "1 maand"
 Else
  aantalmaanden = maanden & " maanden"
 End If
 If dagen > 0 Then aantalmaanden = aantalmaanden & " en " End If
End If
If dagen > 0 Then
 If dagen = 1 Then
  aantaldagen = "1 dag"
 Else
  aantaldagen = dagen & " dagen"
 End If
End If

Response.Write "Het verschil is: " & aantaljaren & aantalmaanden & aantaldagen & "<br>"

[NMe]

Kent VBScript geen modulo? Dit zit er zo omslachtig uit.

[Urk]

-NMe- schreef op vrijdag 29 april 2005 @ 19:34:
Kent VBScript geen modulo? Dit zit er zo omslachtig uit.

Ja hoor, kijk maar op regel 10...

[NMe]

Ah, wacht, ik kijk weer eens met mijn neus.

[Urk]

-NMe- schreef op vrijdag 29 april 2005 @ 19:48:
Ah, wacht, ik kijk weer eens met mijn neus.

Geeft niet
Ik gebruik die mod om te kijken hoeveel maanden er overblijven na de maanden gedeeld door 12 te hebben voor het aantal jaren (naar beneden afgerond)

[RobIII]

In het kader van obscure code zojuist voor u in elkaar geflanst:

ASP:

Response.Write GetDateDiff( CDate("24/04/2005"), CDate("27/08/2006") )

Private Function GetDateDiff(dtStartDate, dtEndDate)
    Dim T, sOut, lVal, arrPeriods

    arrPeriods = Array("yyyy", "jaar", "jaren", "m", "maand", "maanden", "d", "dag", "dagen")

    For T = 0 To UBound(arrPeriods) Step 3
        lVal = DateDiff(arrPeriods(T), dtStartDate, dtEndDate)
        If DateAdd(arrPeriods(T), lVal, dtStartDate) > dtEndDate Then lVal = lVal - 1
        dtStartDate = DateAdd(arrPeriods(T), lVal, dtStartDate)
        sOut = sOut & lVal & " " & arrPeriods(IIf(lVal = 1, T + 1, T + 2)) & " "
    Next
    GetDateDiff = Trim(sOut)
End Function

Private Function IIF(bCondition, vExp1, vExp2)
    If bCondition then IIF = vExp1 else IIF = vExp2
End Function

Geeft "1 jaar 4 maanden 3 dagen" terug

Wel zo mooi en nog een stuk compacter ook En relatief simpel aan te passen:

ASP:

Response.Write GetDateDiff( CDate("24/04/2005 12:34:11"), CDate("27/08/2006 14:12:34") )

Private Function GetDateDiff(dtStartDate, dtEndDate)
    Dim T, sOut, lVal, arrPeriods

    arrPeriods = Array("yyyy", "jaar", "jaren", "m", "maand", "maanden", "d", "dag", "dagen", "h", "uur", "uren", "n", "minuut", "minuten", "s", "seconde", "seconden")

    For T = 0 To UBound(arrPeriods) Step 3
        lVal = DateDiff(arrPeriods(T), dtStartDate, dtEndDate)
        If DateAdd(arrPeriods(T), lVal, dtStartDate) > dtEndDate Then lVal = lVal - 1
        dtStartDate = DateAdd(arrPeriods(T), lVal, dtStartDate)
        sOut = sOut & lVal & " " & arrPeriods(IIf(lVal = 1, T + 1, T + 2)) & " "
    Next
    GetDateDiff = Trim(sOut)
End Function

Private Function IIF(bCondition, vExp1, vExp2)
    If bCondition then IIF = vExp1 else IIF = vExp2
End Function

Geeft "1 jaar 4 maanden 3 dagen 1 uur 38 minuten 23 seconden" terug.
Enige wijziging is nu de array die met wat meer waarden wordt gevuld, en dat je nu ook een tijd mee kunt geven.

Natuurlijk wordt er rekening gehouden met enkelvoud/meervoud (uur/uren etc).

Nog zo'n leuke aanpassing:

ASP:

Response.Write GetDateDiff( CDate("24/04/2005 12:34:11"), CDate("27/08/2006 14:12:34") )

Private Function GetDateDiff(dtStartDate, dtEndDate)
    Dim T, sOut, lVal, arrPeriods

    arrPeriods = Array("yyyy", "jaar", "jaren", "m", "maand", "maanden", "d", "dag", "dagen", "h", "uur", "uren", "n", "minuut", "minuten", "s", "seconde", "seconden")

    For T = 0 To UBound(arrPeriods) Step 3
        lVal = DateDiff(arrPeriods(T), dtStartDate, dtEndDate)
        If DateAdd(arrPeriods(T), lVal, dtStartDate) > dtEndDate Then lVal = lVal - 1
        dtStartDate = DateAdd(arrPeriods(T), lVal, dtStartDate)
        sOut = sOut & lVal & " " & arrPeriods(IIf(lVal = 1, T + 1, T + 2)) & IIF(t+5<>uBound(arrPeriods),IIF(t+2=uBound(arrPeriods),".",", ")," en ")
    Next
    GetDateDiff = Trim(sOut)
End Function

Private Function IIF(bCondition, vExp1, vExp2)
    If bCondition then IIF = vExp1 else IIF = vExp2
End Function

Geeft terug: "1 jaar, 4 maanden, 3 dagen, 1 uur, 38 minuten en 23 seconden." (let daarbij dus op de komma's, de 'en' in de zin en de punt op het eind...)

[ Voor 106% gewijzigd door RobIII op 29-04-2005 20:13 ]

[Urk]

RobIII schreef op vrijdag 29 april 2005 @ 20:01:
In het kader van obscure code zojuist voor u in elkaar geflanst:

ASP:

Response.Write GetDateDiff( CDate("24/04/2005"), CDate("27/08/2006") )

Private Function GetDateDiff(dtStartDate, dtEndDate)
    Dim arrPeriods
    Dim T, sOut, lVal

    arrPeriods = Array("yyyy", "jaar", "jaren", "m", "maand", "maanden", "d", "dag", "dagen")

    For T = 0 To UBound(arrPeriods) Step 3
        lVal = DateDiff(arrPeriods(T), dtStartDate, dtEndDate)
        If DateAdd(arrPeriods(T), lVal, dtStartDate) > dtEndDate Then lVal = lVal - 1
        dtStartDate = DateAdd(arrPeriods(T), lVal, dtStartDate)
        sOut = sOut & lVal & " " & arrPeriods(IIf(lVal = 1, T + 1, T + 2)) & " "
    Next
    GetDateDiff = Trim(sOut)
End Function

Private Function IIF(bCondition, vExp1, vExp2)
    If bCondition then IIF = vExp1 else IIF = vExp2
End Function

Geeft "1 jaar 4 maanden 3 dagen" terug

Dit is alleen geen ASP/VBScript, deze kent ook IIF niet, heb al andere VB code op internet gezien die ook gebruik maakten van IIF, alleen geen idee wat het doet, kreeg het namelijk niet juist naar VBScript geporteerd.

Wat nou als het met bovenstaande code het verschil, 1 jaar en 3 dagen is? Geeft hij dan 1 jaar maanden 3 dagen terug of 1 jaar 3 dagen?

[NMe]

RobIII geeft de definitie van IIF toch ook mee? Dan kent hij hem toch? Of ben ik nou gek?

[RobIII]

-NMe- schreef op vrijdag 29 april 2005 @ 20:13:
RobIII geeft de definitie van IIF toch ook mee? Dan kent hij hem toch? Of ben ik nou gek?

Lezen is ook een vak denk ik dan altijd maar

Urk schreef op vrijdag 29 april 2005 @ 20:05:
[...]
Wat nou als het met bovenstaande code het verschil, 1 jaar en 3 dagen is? Geeft hij dan 1 jaar maanden 3 dagen terug of 1 jaar 3 dagen?

Dan knal je nog een IIF om regel 12:

ASP:

Response.Write GetDateDiff( CDate("24/08/2005 12:34:11"), CDate("27/08/2006 14:12:11") )

Private Function GetDateDiff(dtStartDate, dtEndDate)
    Dim T, sOut, lVal, arrPeriods

    arrPeriods = Array("yyyy", "jaar", "jaren", "m", "maand", "maanden", "d", "dag", "dagen", "h", "uur", "uren", "n", "minuut", "minuten", "s", "seconde", "seconden")

    For T = 0 To UBound(arrPeriods) Step 3
        lVal = DateDiff(arrPeriods(T), dtStartDate, dtEndDate)
        If DateAdd(arrPeriods(T), lVal, dtStartDate) > dtEndDate Then lVal = lVal - 1
        dtStartDate = DateAdd(arrPeriods(T), lVal, dtStartDate)
        sOut = sOut & IIF(lVal>0,lVal & " " & arrPeriods(IIf(lVal = 1, T + 1, T + 2)) & " ","")
    Next
    GetDateDiff = Trim(sOut)
End Function

Private Function IIF(bCondition, vExp1, vExp2)
    If bCondition then IIF = vExp1 else IIF = vExp2
End Function

Doe je dat niet, dan is de output b.v. "1 jaar 0 maanden 3 dagen". Doe je dat wél, dan wordt je output "1 jaar 3 dagen". Sim-pel

[ Voor 122% gewijzigd door RobIII op 29-04-2005 20:31 ]

[Urk]

RobIII schreef op vrijdag 29 april 2005 @ 20:14:
[...]

Lezen is ook een vak denk ik dan altijd maar

Stom stom
Niet goed gelezen inderdaad, alleen Public Function moet dan effe omgezet naar Function.
Zal hem maandag nog eens goed doorlezen, ben het weekend weg.
To be continued... (hoop ik)

[RobIII]

Urk schreef op vrijdag 29 april 2005 @ 20:17:
[...]

Stom stom
Niet goed gelezen inderdaad, alleen Public Function moet dan effe omgezet naar Function.
Zal hem maandag nog eens goed doorlezen, ben het weekend weg.
To be continued... (hoop ik)

A: is 'ie niet public maar private in mijn voorbeeld en B: waarom zou dat moeten Dit werkt gewoon hoor en is zelfs netter en béter zo.

Overigens zijn alle voorgaande voorbeelden die ik post getest (weliswaar kort door de bocht, maar toch...) en werken ze allemaal prima voor zover ik kan zien (functioneel kan er misschien nog wat aan schorren, ik heb het "algoritme" even vlug "verzonnen" en heb geen idee of dit 100% waterdicht is).

Eventueel zou je even als eerste in de functie nog een check kunnen doen of dtEnd wel degelijk groter is dan dtStart, en zo niet even variabelen swappen zodat je geen rare negatieve output krijgt. Maar goed, da's jouw probleem en jouw project Ik heb je aardig op weg geholpen dacht ik zo

Oh, en IIF is een "Inline If". Dat houdt kortweg hetvolgende in:
IIf(expression, truepart, falsepart)

code:

Q = IIF( A=1, "Foo", "Bar")

Als A=1 dan geeft IIF "Foo" terug, anders "Bar" en stopt het resultaat dus in Q.
IIF zit native in VB6 en ik gebruik het rete-veel voor dit soort geintjes (enkelvoud, meervoud enz). En omdat ik ook veel ASP doe mis ik het daar wel eens. En dan schrijf je dus gewoon je eigen IIF functie en gooi je die in een include file zodat je 'm nooit meer hoeft te missen

offtopic:
(en zo heb ik nog -tig functies die ik veel gebruik in ASP die ik zowat altijd include). Helaas ben ik wel zo'n mierenneuker die alle functies pas in de default include copy-ed als ik ze ook echt aanroep in mijn code en tot die tijd paste ik ze dus niet in die include... Je zou er eens een paar bytes teveel in hebben zitten (of functies)

Oh, en @-NMe- : Ik gebruik geen modulo _{in deze code} maar alleen dateadd en datediff... sorry

/edit1: excuses voor de smiley-overdaad

/edit2:
Nog een kleine waarschuwing voor de IIF: Pas op dat je geen expressies in het truepart of falsepart gooit of wees daar op z'n minst héél voorzichtig mee, want beide expressies worden altijd ge-evalueerd. De volgende code geeft dus altijd een error, ongeacht de waarde van MyString:

ASP:

MyString = "ABC"
Q = IIF(MyString = "ABC", 10/2, 10/0)

Je zou verwachten dat Q altijd 5 is, maar je krijgt dus altijd een division by zero... Pas daar voor op dus!
Zie daarvoor ook de documentatie

[ Voor 176% gewijzigd door RobIII op 01-05-2005 14:42 ]

[NMe]

RobIII schreef op vrijdag 29 april 2005 @ 20:18:
Oh, en IIF is een "Immediate If".

offtopic:
Immediate if? Niet inline if? Ik ken het alleen onder die laatste naam, te meer omdat die functie afgeleid lijkt te zijn van de ternary operator die o.a. C kent.

Oh, en @-NMe- : Ik gebruik geen modulo _{in deze code} maar alleen dateadd en datediff... sorry

Het is je vergeven. Jouw code is sowieso netjes compact.

[RobIII]

-NMe- schreef op vrijdag 29 april 2005 @ 21:18:
[...]

offtopic:
Immediate if? Niet inline if? Ik ken het alleen onder die laatste naam, te meer omdat die functie afgeleid lijkt te zijn van de ternary operator die o.a. C kent.

Uhm... dat zeg ik

-NMe- schreef op vrijdag 29 april 2005 @ 21:18:
[...]

[...]

Het is je vergeven. Jouw code is sowieso netjes compact.

<bloos>

[faabman]

Urk, heb je nu eigenlijk al eens de Windows Script 5.6 Documentation gedownload? Het is me opgevallen dat je vaker vragen stelt waarvan de antwoorden in de SDK staan of met de SDK snel kunnen worden gevonden. Misschien heb je er wat aan.

[RobIII]

faabman schreef op zaterdag 30 april 2005 @ 14:18:
Urk, heb je nu eigenlijk al eens de Windows Script 5.6 Documentation gedownload? Het is me opgevallen dat je vaker vragen stelt waarvan de antwoorden in de SDK staan of met de SDK snel kunnen worden gevonden. Misschien heb je er wat aan.

Met alle respect, maar zo'n algoritme haal je niet uit een reference van VBScript. Het gaat in deze draad voornamelijk om de manier waarop je zoiets "uitrekent", niet over de syntax van ASP/VBScript.

[faabman]

RobIII schreef op zaterdag 30 april 2005 @ 16:40:
[...]

Met alle respect, maar zo'n algoritme haal je niet uit een reference van VBScript. Het gaat in deze draad voornamelijk om de manier waarop je zoiets "uitrekent", niet over de syntax van ASP/VBScript.

Ik had het niet zozeer over het algoritme, eerder over de vragen die daarna komen mbt private vs public vs weglaten beide... Het antwoord daarop is gewoon te vinden in de SDK

Public
Indicates that the Function procedure is accessible to all other procedures in all scripts.
Default
Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if more than one Default procedure is specified in a class.
Private
Indicates that the Function procedure is accessible only to other procedures in the script where it is declared or if the function is a member of a class, and that the Function procedure is accessible only to other procedures in that class.