title image


Smiley Re: Stundensumme über 24-Std. Grenze, wanted: Feedback für Funktionsbeispiel
Ja ... geht natürlich noch kürzer, ausserdem würde ich so eine Funktion immer Nullwerte-kompatibel machen, ausserdem würde ich sie so allgemein halten, dass sie auch Sekunden darstellen kann:



Public Function ConvertDayToHour(ByVal Tage As Variant, Optional ByVal MitSekunden As Boolean = True) As String

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

'entsprechend dem Format [h]:mm[:ss] in Excel

Dim Tmp As Long



If Not (IsNumeric(Tage) Or IsDate(Tage)) Then

ConvertDayToHour = ""

Else

Tmp = Int(CDbl(Tage) * 86400#)

ConvertDayToHour = CStr(Tmp \ 3600) & Format((Tmp \ 60) Mod 60, "\:00") & _

IIf(MitSekunden, Format(Tmp Mod 60, "\:00"), "")

End If

End Function



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: