질문 : 10 분의 1 초 영역의 값으로 계산을 수행해야합니다. 답변 : 적절한 모듈에 다음 코드를 삽입합니다. 다음 사용자 정의 기능으로. 구문 : = spectime (A1)

아래 코드를 표준 모듈에 넣으세요

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