Sčítání časů

Postup:

   a=timevalue(text1)
   b=timevalue(text2)
   c=minute(a)
   d=minute(b)
   text3=hour(a)+hour _(b)& ":" & c + d
   If (c+d) >=60 then
      m=(hour(a) + hour _(b) + 1)
      n=(c+d)-60
      text3=m & ":" & n
   End if

Předpokládá se, že v proměnných text1 a text2 jsou hodnoty např. "2:30" a "3:30". V proměnné text3 pak bude "6:00".

Zpět

Autor: The Bozena