VB Verbleibende Tage berechnen

[Maiki (Gast)]

Hallo,

ich googel mir heute schon einen Wolf....

Ich möchte eine VBS Datei, die ein festes Darum hinterlegt hat und mir 
aus dem System das heutige Datum nimmt und mir die Differenz berechnet. 
Wenn bei 0 angekommen eine msg. Zeit vorbei.

Kann mir da mal jemand zeigen wie das geht?

[oggy (Gast)]

und auf deutsch?

[Maiki (Gast)]

Ich möchte in Virtual Basic ein Datum hinterlegen. Aus windows das 
aktuelle datum auslesen und die restlichen Tage bis zum Datum berechnen. 
Und wenn ich bei 0 angekommen bin ein hinweistext, dass das Datum 
erreicht ist.

[Maiki (Gast)]

Das habe ich jetzt bisher.



Sub Main()
        Dim msg As String
        Dim endDate As Date
        endDate = CDate("12.06.2014")
        msg = "Days from today: " & DateDiff(DateInterval.Day, Now, 
endDate)
        MsgBox(msg)
End Sub


Wenn ich jetzt bei 0 tagen angelangt bin, wie kann ich dem jetzt sagen, 
dass nicht -1 kommen soll. sondern "Zeit vorbei"

[Nixversteher (Gast)]

If blablabla then msg "game over"

[Kay P. (kaypohl)]

Moin,

ich kenne Virtual Basic leider nicht, aber in VB.net geht das ganz 
einfach mit der TimeSpan funktion. Vielleicht gibt es sowas ja auch in 
Virtual Basic :-)


Gruß Kay

PS:

If DateDiff(DateInterval.Day, Now, endDate) = 0 then
messagebox.show("Vorbei")
End if