Datum berekenen

[old Hippy]

Hallo Allemaal

Ik wil graag een waarschuwing als er een datum drie weken is verstreken.

Ik heb een textbox met de verstuurdatum en wil een herinnering als er 14 dagen zijn verstreken.
Heb ook een textbox met de datum vandaag.
Hoe bereken ik het verschil tussen de beide datums
Kan iemand mij op weg helpen?????

Heb dit

 Private Sub herinnering()
        TextBox7.Text = Today.AddDays(-14)
        If TextBox7.Text >= VerstuurdopTextBox.Text Then
            Label15.Visible = True
        Else
            Label15.Visible = False
        End If
    End Sub

Dit werkt alleen op de dagen maar als het ouder is dan een maand gaat het mis.

Kan iemand mij op weg helpen?????:thumb:

 

[old Hippy]

Het is op gelost

de volgende code gemaakt

 Private Sub herinnering()

        Dim dag As String
        Dim dagnu As Date = Date.Today
        dag = VerstuurdopTextBox.Text
        dagnu = CDate(dag)
        TextBox8.Text = DateDiff(DateInterval.Day, Now, dagnu)

        If TextBox8.Text < -13 Then
            Label15.Visible = True
        Else
            Label15.Visible = False
        End If

    End Sub