Schlagwort-Archive: Snipplet

VBS: Kleines Helferlein „Laufzeitberechnung“

0
0

Werbung:

Auf der Arbeit kommt es immer wieder mal vor, dass etwas eine gewisse Zeit dauert. Oft liegt die Angabe bei uns in Form von „Stunden“ vor und man – ich – tu mich manchmal schwer damit herauszufinden bis wann das geht. Wenn ich heute damit anfange, könnte es ja an einem Wochenende fertig sein. Oder zu einer anderen Uhrzeit. Daher hab ich ein kleines VBS-Skript geschrieben, was mir ganz einfach anzeigt, wann was fertig ist:


Option Explicit
dim vAktZeit
dim vLaufzeit
dim vNewDate
dim vStartzeit
vAktZeit=Now
vLaufzeit = InputBox("Bitte die Dauer der Aufgabe in Stunden eingeben","Laufzeit","110")
vStartzeit = InputBox("Bitte noch die Startzeit im Format tt.mm.yyyy hh:mm angeben","Startzeit",vAktZeit)
vNewDate = DateAdd("h",vLaufzeit,vStartzeit)
MsgBox vNewDate,0,"Laufzeitende"

Eingabe im Texteditor, aber als „.vbs“ abspeichern. Nach einem Doppelklick zum Ausführen wird man gefragt wie lange die Aufgabe dauern soll. Standardmäßig ist hier 110 Stunden eingestellt. Danach wird einfach die aktuelle Zeit plus die Anzahl Stunden gerechnet, zum heutigen Datum (und Uhrzeit) addiert und das Ergebnis ausgegeben. Vielleicht nicht immer optimal oder ein grosser Augenschmaus bei geringem Komfort, aber mir hilft es, weil ich dann nur noch im Kalender gucken muss, ob ich zu dem berechneten Endzeitpunkt auch auf der Arbeit oder gerade im Urlaub/Wochenende bin.

0
0