Soru: Saniyenin on binde biri alanındaki değerlerle hesaplamalar
yapılmalı
Cevap: Aşağıdaki kodu uygun modüllere ekleyin. Aşağıdaki kullanıcı tanımlı fonksiyon ile. sözdizimi: =belirtim zamanı(A1)
Aşağıdaki kodu standart modüle yerleştirin
İşlev 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(Left(txt, 2)) / (BÖL / 60) SpecTime= dblValue Bitiş Fonksiyonu