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	2.001	DustyD.	23.04.22 18:06
Re: Stunden und Minuten addieren	975	Kuno60	23.04.22 21:32
Re: Stunden und Minuten addieren	955	Manfred X	23.04.22 21:37
Re: Stunden und Minuten addieren	1.058	minimalist	24.04.22 11:46
Re: Stunden und Minuten addieren	911	DustyD.	24.04.22 12:28
Re: Stunden und Minuten addieren	871	Hollie	27.04.22 17:02
Re: Stunden und Minuten addieren	838	Hollie	27.04.22 17:19
Re: Stunden und Minuten addieren	918	DustyD.	27.04.22 22:48
Re: Stunden und Minuten addieren	925	Kuno60	28.04.22 00:55
Re: Stunden und Minuten addieren	969	Hollie	28.04.22 08:01
Re: Stunden und Minuten addieren	41	kleinhaus95	01.09.25 14:33

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