Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Umrechnen std / min
Autor: michi-bib
Datum: 22.07.02 18:59
Hallo erstmal, so könnte es vom Ansatz her gehen: Private Sub Command1_Click() Text1 = convert("23,436 hours") 'Text1 = convert("91,333 min.") End Sub Public Function convert(s As String) As String Dim h As Integer Dim n As Double Dim min As Integer Dim sek As Integer s = UCase(s) i = InStr(1, s, "HOUR") If i > 0 Then s = Trim(Left(s, i - 1)) h = Int(s) n = CDbl(s) - h min = Int(60 * n) n = n - min / 60 sek = Int(3600 * n) convert = Format(h, "00") + ":" + Format(min, "00") + ":" + Format(sek, "00") Exit Function End If i = InStr(1, s, "MIN") If i > 0 Then s = Trim(Left(s, i - 1)) h = Int(CDbl(s) / 24) n = CDbl(s) - 24 * h min = Int(n) n = n - min sek = Int(60 * n) convert = Format(h, "00") + ":" + Format(min, "00") + ":" + Format(sek, "00") End If End Function Ggf. noch beachten, ob du Punkt oder Komma als Dezimaltrennzeichen hast und evtl. noch überprüfen, ob die Stunden in Form von 2 Ziffern darstellbar sing. gruß Michi aus Hannover

Umrechnen std / min	89	Ansi	22.07.02 16:56
Re: Umrechnen std / min	74	michi-bib	22.07.02 18:59

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