0

助けが必要...

私はシナリオを持っています..

注：夜のスケジュールの時差を解決して取得するための論理的な方法が必要です。出席監視用。

最初に、夜の差分スケジュール (10:00:00PM - 06:00:00AM) 2 番目に、私の通常の出勤シフト スケジュールは次のとおりです。

[15時～18時]

【休憩時間：18時～19時】

[07PM - 11PM]

差分のため.. 午後 10 時から午前 6 時まで.. 午後 10 時から午後 11 時までの合計 (1 時間) の夜勤の差分があります

誰かが 1 時間の答えを得るためにどのコードを使用すればよいかを教えてくれませんか?

私はタイムスパンと時間の計算を使用しています..しかし、ロジックや方法がわかりません。

ありがとうございました

4

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
于 2013-02-21T03:18:38.013 に答える