Skaičiavimai su tūkstantąja sekundės dalimi pagal pasirinktinę funkciją naudojant VBA

Klausimas: Skaičiavimai su dešimtosios sekundės srities vertėmis
turi būti padaryta

Atsakymas: Įdėkite šį kodą į atitinkamus modulius. Su tokia vartotojo apibrėžta funkcija. sintaksė: = spektras (A1)

Įdėkite žemiau esantį kodą į standartinį modulį

 Funkcija SpecTime (txt kaip eilutė) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt (dešinė (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (kairėn (txt, 2)) / (DIV / 60) SpecTime = dblValue Pabaigos funkcija