Câu hỏi: Phải thực hiện các phép tính với các giá trị trong diện tích hàng nghìn giây Trả lời: Chèn đoạn mã sau vào các mô-đun thích hợp. Với chức năng do người dùng định nghĩa sau. cú pháp: = spectime (A1)

Đặt đoạn mã dưới đây vào mô-đun chuẩn

Function 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)) / (DIV / 60)

SpecTime= dblValue

End Function