Lang L: none (table-of-contents)
Küsimus: Arvutused, mille väärtused on kümnendiku sekundi piires
tuleb teha
Vastus: Sisestage järgmine kood vastavatesse moodulitesse. Järgmise kasutaja määratud funktsiooniga. süntaks: = spekter (A1)
Asetage allolev kood standardmoodulisse
Funktsioon SpecTime (txt kui string) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt (Right (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (Left (txt, 2)) / (DIV / 60) SpecTime = dblValue End Function
