Sadržaj
Pitanje: Proračuni s vrijednostima u području desetih tisućinki sekunde
treba učiniti
Odgovor: Umetnite sljedeći kôd u odgovarajuće module. Sa sljedećom korisnički definiranom funkcijom. sintaksa: = spektar (A1)
Unesite donji kôd u standardni modul
Funkcija SpecTime (txt As 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 (Lijevo (txt, 2)) / (DIV / 60) SpecTime = dblValue Krajnja funkcija
