勤務時間を計算する

Question

hourとminuteは、Pay AmountとPay rateに基づいてhourに基づいて計算することは困難です。

例：以下working duration = (wages/pay per hour)

が私のコードです。助けてください。

strActDuration = CStr(Math.Round((dblActual/dblPayAmount), 1)) 


          Dim parts As String() = strActDuration.Split("."c) 
          Dim strhour As Integer = 0 
          Dim strminutes As Integer = 0 


          If parts.Length = 1 Then 
           strhour = Integer.Parse(parts(0)) 
           strminutes = 0 
          ElseIf parts.Length = 2 Then 
           strhour = Integer.Parse(parts(0)) 
           strminutes = Integer.Parse(parts(1)) 
           'strroundminutes = CInt(Math.Round(strminutes, 3)) 
           'strroundminutes = CInt(Math.Truncate(strminutes/10)) 

          End If 

          strCombineDuration = strhour & "Hr " & strminutes & "Min" 

Answer 1

期間を数（倍）で分単位で保存します。

dblMinutes = Math.Round(60*dblActual/dblPayAmount, 1) 
Dim ts as TimeSpan = New Timespan(0, dblMinutes, 0) 
strDuration = Format(ts.Hours, "0") & " Hr " & Format(ts.Minutes, "0")) & " Min"