Zeit
01.09.2005 08:58:43
Manu
ich habe eine Frage und zwar folgendes Problem:
'--- Umrechnung in Minuten ---'
Gehzeit1 = Hour(Cells(y, 3))
Gehzeit2 = Minute(Cells(y, 3))
Anfangszeit1 = Hour(Cells(y, 2))
Anfangszeit2 = Minute(Cells(y, 2))
Gehzeit = (CDec(Gehzeit1) * 60) + Gehzeit2
Anfangszeit = (CDec(Anfangszeit1) * 60) + Anfangszeit2
'--- Berechnung ---'
If OptionButton1 = True Then
Cells(y, 4) = (Gehzeit - Anfangszeit)
End If
If OptionButton2 = True Then
Select Case Tag
Case "Montag", "Dienstag", "Mittwoch", "Donnerstag"
Cells(y, 4) = (((Gehzeit - Anfangszeit) - 555) / 60)
Case "Freitag"
Cells(y, 4) = (((Gehzeit - Anfangszeit) - 360) / 60)
Case "Samstag", "Sonntag"
Cells(y, 4) = ((Gehzeit - Anfangszeit) / 60)
End Select
End If
Das ist mein Code mit dem ich die Zeit ausrechne nun steht das format am Schluss wie folgt in der Zelle 1 std 15 min ^= 1,25(basis auf dezimal) ist ja logisch nun möchte ich es aber in diesem fromat 1:15 stehen haben. Kann mir irgendjemand hier einen tipp oder so helfen?
Danke für eure Hilfe
Manu