Data van elkaar aftrekken

[Dwerg90]

Hoi, ik moet een project voor school maken en nu zit ik met een probleempje.

Ik moet 2 data van elkaar aftrekken en dan moet ik weten hoeveel dagen er tussen die data zit. Ik heb nu al vanalles geprobeert met DatDiff maar ik weet niet hoe ik dit moet gebruiken.

Als iemand mij zou kunnen helpen, zou ik dat zeer op prijs stellen.

Bedankt.

Ik zie nu trouwens dat ik hem in het verkeerde hoekje gepost heb, sorry.

 

[Quina]

This should do the trick

Je zal waarschijnlijk hetzelfde probleem gehad hebben die ik initieel had. Datediff moet je laten voorgaan door de namespace anders doet die het niet Microsoft.VisualBasic.DateDiff

Zie hieronder het werkend voorbeeld:


Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Maak variabelen aan van het type date die eerste en tweede datum bijhouden
Dim date1 As Date
Dim date2 As Date
'Maak variabele aan waarin het verschil tussen deze twee data wordt opgeslaan
Dim verschil As Long

'Geef in een inputbox de data aan die je opslaat in de variabelen
date1 = InputBox("Geef de eerste datum in", "Eerste Datum")
date2 = InputBox("Geef de tweede datum in", "Tweede Datum")

'Bereken het verschil tussen de 2 data, in dit geval het verschil in dagen (dayinterval.day)
verschil = Microsoft.VisualBasic.DateDiff(DateInterval.Day, date1, date2)

'Toon het verschil in een message box
MessageBox.Show(verschil)
End Sub
End Class


Success