시간당 임금 계산

Question

안녕하세요, 저는 직원들이 퇴근 할 때 임금을 계산하는 방법을 알아 내려고하고 있습니다.

Dim theStartTime As Date 
Dim theEndTime As Date 
Dim totalTime As String 

theStartTime = "16:11:06" 
theEndTime = "18:22:01" 
totalTime = Format(CDbl((theEndTime - theStartTime) * 24), "#0.0") 

그래서 가능한 시간은 다음과 같습니다 : 이것은 내가 현재 사용하고 코드 2 시간 11m

지금, 내 계산 코드 위에서, 나는 2.2을 얻을. 2시 20 분 대신 2시 11 분의 정확한 시간을 계산하려면 무엇을 추가해야합니까? 2.2 시간 하지 2:20입니다

데이비드

Answer 1

주, 그것은 2:12입니다. 인쇄 할 때

변경

Format(CDbl((theEndTime - theStartTime) * 24), "#0.0") 

당신이 바로 그 값을 받고있어

Format(theEndTime - theStartTime, "h:mm") 

에, 그냥 반올림. theEndTime - theStartTime은 두 시간의 차이와 동일한 시간 범위입니다. 24 시간을 곱하면 시간이 달라집니다. 그러나 날짜/시간 형식을 사용하려면 다시 24로 나누어야합니다.

format dates and time in VB6의 모든 방법을 확인하십시오.

Answer 2

당신은 모든 숫자 값을 (소수점의 왼쪽에 4 내에 자리하고 오른쪽으로 15 자리)을 대표 할 수있는 Currency 유형으로 캐스팅 시도해야합니다.

Format(CCur((theEndTime - theStartTime) * 24), "#0.00") 

Answer 3

우선 가능한 한 .NET 프레임 워크 (사용하기 쉬운 TimeSpan 클래스 포함)로 이동하는 것이 좋습니다.

그러나, VB6에서 다루고 있습니다 (DATEDIFF 기능을 사용할 수 있어야하고 특정 구문이 될 수 있도록 내가 VB6 감동 한 이후 몇 년이되었습니다

Dim iHours As Integer, iMins As Integer 
iMins = DateDiff("n", theStartTime, theEndTime) 
iHours = iMins/60 
iMins = iMins Mod 60