2013-02-09 7 views
0

도움이 필요 vb.net에서논리적 방법은 .. <p></p> 내가 시나리오를 가지고 ...

메모를 야간 근무 차동의 총 시간을 얻을 : 내가 해결하고 시간 차이를 얻을 수있는 논리적 방법을 원하는 밤 일정. 출석 모니터링.

첫째, 밤 차동 일정 (오후 10시 0분 0초부터 오전 6시 0분 0초까지) 둘째, 내 정기적으로 출석 변속 패턴은 다음과 같습니다

[오후 3시부터 오후 6시까지]

[휴식 시간 : 오후 6시부터 오후 7시까지]

[오후 7시에서 오후 11시까지

,369 - 오후 11시 인한 차동

.. 오후 10시에서 오전 6시까지에서 .. I 오후 10로부터 총 (1 시간)의 야간 교대를 차동

누군가가 나에게 1 시간의 답을 얻을 수있는 코드를 어떻게 사용할 지 아이디어를 줄 수 있습니까?

나는 timespan과 시간 계산 시간을 사용합니다. 그러나 나는 논리 나 방법을 모른다.

당신에게

+0

당신이 언어 돕는에서 우리를 방지하는 유일한 장애물 감사합니다. 다른 사람이 귀하의 질문에 대해 다시 말하게하십시오. – Ahmad

+0

제 생각이 맞는지 설명해주십시오. 오후 3 시부 터 오후 11 시까 지 정규 근무 시간에 오후 6 시부 터 오후 7 시까 지, 야간 근무 시간은 오후 10 시부 터 오전 6 시까 지이며 11 시부 터 10시 사이의 차이점을 알고 싶습니까? – Steve

+0

예. 정확합니다. 나는 1 시간이 야간 시차 차이라는 시간차를 가져올 필요가있다. 문제는 내가 1의 값을 얻는 방법을 모른다. –

답변

0
Sub TimeIN_TimeOut() 

    Dim timeIn(4), timeOut(4) As DateTime 

    Dim days As String() = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday"} 
    Dim totalHours, subTotal(4) As Double 

    For x As Integer = 0 To 4 
     WriteLine() 

     Write("Enter Time-In for {0}:", days(x)) 
     timeIn(x) = ReadLine() 

     Write("Enter Time-Out for {0}:", days(x)) 
     timeOut(x) = ReadLine() 


     subTotal(x) += timeOut(x).Subtract(timeIn(x)).TotalHours 

     totalHours += subTotal(x) 


    Next 
    WriteLine() 
    WriteLine() 
    WriteLine("__________________________________________________") 
    WriteLine("Total work Hours from {0} to {1}:{2}", days(0), days(4), totalHours) 



End Sub