Codeerweiterung gesucht

Forumthread: Codeerweiterung gesucht
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Codeerweiterung gesucht

Frank

Hallo Zusammen!
Nutze folgenden Code:
If Len(TextBox13.Text) = 4 Then
TextBox13 = Format(Left(TextBox13, 2) & ":" & Right(TextBox13, 2), "hh:mm")
End If
Kann man diesen erweitern, so dass ich am Ende die Zeit im Format "hh:mm:ss" bekomme!!!
Danke!!!
Gruß Frank H.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Codeerweiterung gesucht

Rudi
AW: Codeerweiterung gesucht

Frank
AW: Codeerweiterung gesucht

Rudi
AW: Codeerweiterung gesucht

Frank

AW: Codeerweiterung gesucht

05.03.2012 14:14:36

Rudi

Hallo,
so?
textbox13=format(timeserial(--left(textbox13,2),--right(textbox13,2),0),"hh:mm:ss")
Gruß
Rudi

AW: Codeerweiterung gesucht

05.03.2012 14:25:27

Frank

Hallo Rudi!
Danke für deine Antwort! Leider gibt es ein Problem:
Ich gebe bspw. 000345 ein, was dann 00:03:45 werden soll, wird es aber nicht! Es wird: 00:45:00.
Hast du eine Idee woran das liegen könnte?
Danke und Gruß, Frank H.!!!

AW: Codeerweiterung gesucht

05.03.2012 14:53:11

Rudi

Hallo,
textbox13=format(timeserial(--left(textbox13,2), --mid(textbox13,3,2), --right(textbox13,2)),"hh:mm:ss")
Gruß
Rudi

AW: Codeerweiterung gesucht

05.03.2012 17:08:26

Frank

Hallo Rudi!!!
So funzt es Super!!! Vielen herzlichen Dank und dir noch 'nen schönen Tag!!!
War kurz weg, deshalb erst jetzt der Dank!!!
Gruß Frank H.!!!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!