|
Anzeige
|
VB Verbleibende Tage berechnen
Gast
#3657106
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?
Gast
#3657121
und auf deutsch?
Gast
#3657127
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.
Gast
#3657205
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"
Gast
#3657478
If blablabla then msg "game over" 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
Antwort schreibenBitte melde dich an, um einen Beitrag zu schreiben. |
Anzeige
|
