Verschil tussen datume uitrekenen

[BromsnorII]

Hallo,

Graag jullie hulp voor het volgende.
In een tabel staan o.a. datums die in willekeurige volgorde zijn ingevoerd. Met query sorteer ik dit op datum. Nu wil ik in diezelfde query een veld waarin het aantal dagen tussen de opeenvolgende datums wordt weergegeven.
De het vele wat bij de eerste datum hoort blijf uiteraard leeg.

De query heeft dus de volgende datums

Datum

9-1-2010
16-1-2010
27-1-2010
2-2-2010
enz.

Het tweede veld moet dan worden


Datum verschil

9-1-2010
16-1-2010 7
27-1-2010 11
2-2-2010 5
enz.

Bedankt voor het nemen van de moeite

Groet,
Sietse

 

[edmoor]

Met deze discussie moet je toch een heel eind komen:
http://www.helpmij.nl/forum/showthread.php/813142-Tijds-berekening?highlight=elapsed

Bekijk ook deze eens:
http://office.microsoft.com/en-us/a...ween-two-date-or-time-values-HP001098486.aspx

 

[BromsnorII]

Deze discussie is zeker interessant, maar ik kan mijn antwoord niet vinden.

 

[snelledre]

Als ik je goed begrijp wil je alleen het verschil van datum berekenen.

Maak een module aan bijvoorbeeld "ElapsedDays" en zet hier de onderstaande code in.

Option Compare Database
Option Explicit

 Function GetElapsedDays (interval)
    Dim dagen As Long

    dagen = Int(CSng(interval))
    GetElapsedDays = dagen & " Dagen "
 End Function

In je 3e kolom van de query zet je de onderstaande code. (Datum2 en Datum1 zijn bijvoorbeeld je datum velden uiteraard)

Verschildagen: GetElapsedDays([Datum2]-[Datum1])

Je kan ook uiteraard deze code ook direct in je query zetten zonder de module aan te maken.

    Verschildagen = Int(CSng([Datum2]-[Datum1]))

Succes

 

[OctaFish]

Alle antwoorden zitten er naast, vrees ik . Je moet met een queryveld de vorige datum ophalen in een nieuw veld, en de twee datumvelden vervolgens van elkaar aftrekken in de query.

VorigeDatum: (SELECT TOP 1 Datum FROM Tabel AS T1 WHERE T1.Datum < Tabel.Datum ORDER BY T1.Datum DESC )

Haalt de vorige datum uit de tabel.

DatumVerschil: [datum]-[VorigeDatum]

Berekent vervolgens het verschil tussen de twee velden.