vb.net中获取夜班总时间差的逻辑方法答案

【问题标题】：logical method to get the total time of night shift differential in vb.netvb.net中获取夜班总时间差的逻辑方法
【发布时间】：2013-02-09 06:31:10
【问题描述】：

需要帮助...

我有场景..

注意：我想要一种合乎逻辑的方法来解决并获得夜间时间表的时间差异。用于考勤监控。

首先，夜间差异时间表（10:00:00PM - 06:00:00AM）第二，我的正常出勤班次安排是：

[下午 3 点 - 下午 6 点]

[休息时间：6pm - 7pm]

[07PM - 11PM]

由于差异.. 从晚上 10 点到早上 6 点.. 我有晚上 10 点到晚上 11 点的总夜班差异（1 小时）

有人可以告诉我使用什么代码可以在 1 小时内得到答案。

我使用时间跨度和计算时间..但我不知道逻辑或方法。

谢谢

【问题讨论】：

阻止我们帮助您的唯一障碍是语言。尝试让其他人重新表述您的问题。
请解释我的想法是否正确。您有固定的班次，从下午 3 点到晚上 11 点，从晚上 6 点到晚上 7 点休息，从晚上 10 点到早上 6 点有夜班，您想知道晚上 11 点和晚上 10 点之间的区别吗？
是的，先生..这是正确的。我需要得到 1 小时是夜班差异的时差。问题是我不知道如何获得 1 的值。
这个问题的答案会因输入数据的形状而异。你能发布一些代码示例吗？至少，创建一个指定输入和输出参数的空方法，我们可以帮你填写实现。

标签： vb.net vb.net-2010 timespan time-and-attendance

【解决方案1】：

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

【讨论】：