Πίνακας περιεχομένων
Ερώτηση: Υπολογισμοί με τιμές στην περιοχή του δέκατου χιλιοστού του δευτερολέπτου
πρέπει να γίνουν
Απάντηση: Εισαγάγετε τον ακόλουθο κώδικα στις κατάλληλες ενότητες. Με την ακόλουθη συνάρτηση που ορίζεται από το χρήστη. σύνταξη: = φάσμα (A1)
Τοποθετήστε τον παρακάτω κώδικα στην τυπική μονάδα
Λειτουργία 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 (Αριστερά (txt, 2)) / (DIV / 60) SpecTime = dblValue End Function
