Laskelmat tuhannesosa sekunnin murto -osista mukautetun funktion avulla VBA: ta käyttäen

Kysymys: Laskelmat, joiden arvot ovat kymmenesosa sekunnin alueella
on tehtävä

Vastaus: Lisää seuraava koodi asianmukaisiin moduuleihin. Seuraavalla käyttäjän määrittämällä toiminnolla. syntaksi: = spektri (A1)

Aseta alla oleva koodi vakiomoduuliin

 Toiminto SpecTime (txt merkkijonona) Const DIV niin pitkä = 86400 Dim dblValue Kuten Double dblValue = CInt (Oikea (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (Vasen (txt, 2)) / (DIV / 60) SpecTime = dblValue End Function