Excel vba - 논리 오류

Question

여러 명의 직원이 근무한 총 시간을 합친 스프레드 시트 (x4)가 있습니다. 한 직원의 합계는 24 시간입니다. 내 기능에서는 Excel이 내부적으로 시간을 나타내는 방식으로 인해 1과 같습니다. '시간'값을 기준으로 셀의 서식을 지정하여 각 사람에 대해 총 시간 (분)을 표시합니다. 나는 typename (hours) = double을 검사했다. 시간 = 1 일 때 시간 => 1이 '참'과 같지 않은 이유를 알 수 없습니다. 그 사람의 스프레드 시트 값에 1 분을 추가하면 예상대로 작동합니까?

Public Function format_hours(hours As Variant) As Variant 
If hours >= 1 Then 
    format_hours = Application.Text(hours, "[hh]:mm") 
ElseIf hours > 0 Then 
    format_hours = Format(hours, "hh:mm") 
Else 
    format_hours = 0 
End If 
End Function 

Answer 1

문제는 Hours as Variant이 아마 String로 통해 오는, 그리고 날짜/더블 것입니다. 명시 적으로 Date/Double로 확인/변환 한 적이 없으므로 If hours >= 1 Then에서 예상되는 암시 적 변환 및 비교 작업을 수행하지 않은 것일 수 있습니다.

해결 방법 : 명시 적 변환과 비교를 사용하십시오. 암묵적인 것은 필연적으로 이와 같은 불가사의 한 벌레들을 만들어 내기 때문에 짜증이 난다.