datum aftellen?

[Dummy1912]

Hallo,

iemand die mij kan helpen met dit?

bv:
ik heb een datum staan 15/10/2010 nu zou ik deze datum
moeten laten aftrekken door de datum van vandaag dus 12/10/2010

is nog 3 dagen te gaan.

hoe kan ik dit doen?

simpel gezegt enig welke datum gewoon laten aftrekken met de datum van de dag.

Dummy1912

 

[The Mighty Atom]

        Dim d1 As Date = "15/10/2010"
        Dim d2 As Date = "12/10/2010"

        Dim ts As TimeSpan = d1.Subtract(d2)

        MessageBox.Show("The difference is: " & ts.Days & " days.")

Dat zou moeten voldoen.

 

[Dummy1912]

Hey Mighty,

is dit juist?
ik heb als voorbeeld:
13/10/2010
datum vandaag 12/10/2010

en krijg 0

 

[The Mighty Atom]

ja, 13/10/2010 is morgen. Je kan niet 12/10/2010 - 13/10/2010 doen.

Dan moet je 13/10/2010 - 12/10/2010 doen, dus zo:

        Dim d1 As Date = "13/10/2010"
        Dim d2 As Date = "12/10/2010"

        Dim ts As TimeSpan = d1.Subtract(d2)

        MessageBox.Show("The difference is: " & ts.Days & " days.")

 

[Dummy1912]

ok heb nu 1 days

cool bedankt Mighty
je bent de :thumb:

Dummy1912

 

[Dummy1912]

en als ik nu bv
over de datum zit kan ik dit dan ook aangeven met een .... 7 days to late?

bv:
je moest het terug brengen op 13/10/2010
maar we zijn al de 20/10 dat is 7 dagen te laat
gaat dat ook?

 

[The Mighty Atom]

Zo:

   MessageBox.Show("19 October 2010 is " & DateDiff("d", "12/10/2010", "19/10/2010") & " days from now.")

 

[Dummy1912]

wow cool
nog 1 vraagje mighty

is er een manier om de -2 weg te doen dat er enkel komt 2

 

[The Mighty Atom]

-2?

Als ik die messagebox doe, krijg ik gewoon netjes 7 te zien, omdat 19 oktober 7 dagen vanaf vandaag is. Ik denk dat je de input dates verkeerd om hebt. Want als ik de dates omdraai, krijg ik inderdaad -7 te zien.

Dus draai de dates om. Dus:

Date1 = Date.Today
Date2 = datum in de toekomst

  MessageBox.Show("19 October 2010 is " & DateDiff("d", Date.Today, "19/10/2010") & " days from now.")

Zo dus.

 

[Dummy1912]

Ok gelukt
sorry

bedankt mighty
you rock :thumb: