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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: