title image


Smiley Re: Wie multipliziert man 121:25:12 einer Dezimalzahl?


Public Function ZeitInStunden(S as String)As Double

Dim I as long, T as variant, Res as double

T = Split(S,":")

If UBound(T) >= 0 then

If Isnumeric(T(0)) then Res = Res + Val(T(0))

end if

If UBound(T) >= 1 then

If Isnumeric(T(1)) then Res = Res + Val(T(1))/60#

end if

If UBound(T) >= 2 then

If Isnumeric(T(2)) then Res = Res + Val(T(2))/3600#

end if

ZeitInStunden = Res

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: