Izračuni z enim tisočinim deležem sekund s funkcijo po meri z uporabo VBA

Vprašanje: Izračuni z vrednostmi na območju desettisočine sekunde
je treba narediti

Odgovor: V ustrezno modul vstavite naslednjo kodo. Z naslednjo uporabniško določeno funkcijo. skladnja: = spekter (A1)

Spodnjo kodo vstavite v standardni modul

 Funkcija SpecTime (txt kot niz) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt (Desno (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (Levo (txt, 2)) / (DIV / 60) SpecTime = dblValue End Funkcija