Datum probleempje

[Jan92]

Dag Allemaal,

In't kort : Ik heb een form met 3 textvakken.

In het eerste textvak typ ik een datum. (vb.30-03-2010)

In het tweede textvak zou de huidige datum moeten komen. (dus, 07-04-2010)

En in het derde textvak het aantal dagen verschil tussen deze twee datums. (dus, 8)

Ik heb al verschillende site's bezocht die altijd wel 'iets' uitleggen, maar niet het geheel.

En ik begrijp echt heel weinig van datumconversies en berekeningen.

Mocht iemand mij de volledige code willen geven zou ik zeer dankbaar zijn.

(en blijf ik niet hangen aan dit struikelblok)

Thxs, Jan

 

[old Hippy]

Hi jan92

hopelijk zet dit je op het goede pad

 Dim firstDate, msg As String
    Dim secondDate As Date

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim firstDate, msg As String
        Dim secondDate As Date
        firstDate = InputBox("Enter a date")
        secondDate = CDate(firstDate)
        msg = "Days from today: " & DateDiff(DateInterval.Day, Now, secondDate)
        MsgBox(msg)
    End Sub

 

[Jan92]

Goedeavond, Old Hippy

Dat heeft mij inderdaad heel erg geholpen.:thumb: :thumb:

Tot genoegen, Jan.