title image


Smiley Stundensumme über 24-Std. Grenze, wanted: Feedback für Funktionsbeispiel
hab nix passendes gefunden, also hab ich auf die schnelle mal eine Funktion gemacht:





Public Function ConvertDayToHour(Tage As Double) As String

'wandelt eine Zahl um in Stunden und Minuten, über die 24 h Grenze hinaus

'entsprechend dem Format [h]:mm in Excel



Dim ret As Double, Stunden As Integer, Minuten As Integer



ret = Tage * 24 * 60

MsgBox ret

Stunden = CInt(ret \ 60)

Minuten = CInt(ret Mod 60)

ConvertDayToHour = CStr(Stunden) & ":" & Right("00" & CStr(Minuten), 2)



End Function





wenn jemand Verbesserungsvorschläge hat, lasst es mich wissen.



Gruss

Ernst
Gruss Ernst ---------------------------------------------------------------------------------- WIN XP prof, Office XP, Visual Studio (.net) 2002 + 2005

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: