Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Stunden und Minuten addieren
Autor: Hollie
Datum: 27.04.22 17:02
Hallo Dusty, vielleicht habe ich eine Idee. Mal auf eine hoffentlich verständliche Art ein Beispiel: Private Command1() Call Endestunde_Bestimmen("20:00", "02:30") *Aufruf des Gut-Falles End Sub Private Command2() Call Endestunde_Bestimmen("22:00", "04:30") *Aufruf des Gut-Falles End Sub Private Sub Endestunde_Bestimmen(Start as String, Dauer as String) Select Case True 'Ok-Fall: Case CSng(TimeValue(START)) + CSng(TimeValue(LAeNGE)) < 1 MsgBox Format(TimeValue(START) + TimeValue(LAeNGE), "hh:mm") '"31.12.1899"-Fall: Case CSng(TimeValue(START)) + CSng(TimeValue(LAeNGE)) > 1 MsgBox Format(CSng(TimeValue(START)) + CSng(TimeValue(LAeNGE)) - 1, "hh:mm") End Select End Sub Anstelle üder MsgBox kannst Du das Ergebnis ja in eine Variable o.ä. übernehmen oder die Sub gar in eine Funktion umwandeln. So, hoffe doch, jetzt hier keinen Schreibfehler reingebastelt und Dir einen Tipp spendiert zu haben. Viele Grüße.

Stunden und Minuten addieren	1.253	DustyD.	23.04.22 18:06
Re: Stunden und Minuten addieren	607	Kuno60	23.04.22 21:32
Re: Stunden und Minuten addieren	595	Manfred X	23.04.22 21:37
Re: Stunden und Minuten addieren	688	minimalist	24.04.22 11:46
Re: Stunden und Minuten addieren	553	DustyD.	24.04.22 12:28
Re: Stunden und Minuten addieren	531	Hollie	27.04.22 17:02
Re: Stunden und Minuten addieren	498	Hollie	27.04.22 17:19
Re: Stunden und Minuten addieren	578	DustyD.	27.04.22 22:48
Re: Stunden und Minuten addieren	576	Kuno60	28.04.22 00:55
Re: Stunden und Minuten addieren	602	Hollie	28.04.22 08:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen