3

我想知道 VB.NET 是否有一个函数可以告诉我两个不同时间跨度共有的总时间。

例如，我有这两个不同的时间跨度：

1st Date : (2013-01-01 8:30 AM) - (2013-01-01 11:30PM)
2nd Date : (2013-01-01 10:00 PM) - (2013-01-02 6:00 AM)

VB.NET 可以告诉我答案是 1 小时 30 分钟吗？（可能是十进制）这是 1 小时 30 分钟，因为晚上 10:00 PM 和晚上 11:30 属于另一个时间跨度。

概括：

我只需要一个函数来告诉我在某个时间跨度中有多少小时是夜班的一部分。（即晚上 10:00 到早上 6:00）。

4

4 回答 4

2

TimeSpan通过该类，所有 .Net 语言都可以使用此功能：

例如。：

result = (dt2 - dt1).TotalHours

当您减去两个日期时，您会得到一个 TimeSpan。TimeSpan 的 TotalHours 属性为您提供小时数或其中的一部分。

查看文档： http: //msdn.microsoft.com/en-us/library/269ew577 (v=vs.110).aspx

于 2013-05-20T02:30:13.910 回答
1

编辑：对不起，我误解了你的问题。我想这就是你要找的。

这是您的 DateRange 类：

Public Class DateRange
   Public Property StartTime As DateTime
   Public Property EndTime As DateTime
   Public ReadOnly Property NumberOfHours As Decimal
       Get
           Dim result As Double
           result += (EndTime - StartTime).Hours
           result += (EndTime - StartTime).Minutes / 60
           result += (EndTime - StartTime).Seconds / 3600
           Return result
       End Get
   End Property
End Class

这将是链接中的 C# 函数，用 VB 重写：

Private Function GetIntersectionRange(range1 As DateRange, range2 As DateRange) As DateRange
    Dim iRange As New DateRange()
    iRange.StartTime = If(range1.StartTime < range2.StartTime, range2.StartTime, range1.StartTime)
    iRange.EndTime = If(range1.EndTime < range2.EndTime, range1.EndTime, range2.EndTime)

    If iRange.StartTime > iRange.EndTime Then iRange = Nothing
    Return iRange
End Function

这是一小段代码，用于执行您要求的计算并将答案写入控制台：

Dim firstDate As New DateRange With {.StartTime = New DateTime(2013, 1, 1, 8, 30, 0), .EndTime = New DateTime(2013, 1, 1, 23, 30, 0)}
Dim secondDate As New DateRange With {.StartTime = New DateTime(2013, 1, 1, 22, 0, 0), .EndTime = New DateTime(2013, 1, 2, 6, 0, 0)}

Dim result As DateRange = GetIntersectionRange(firstDate, secondDate)
Console.WriteLine(result.NumberOfHours)
于 2013-05-19T23:02:58.110 回答
1

Date1 和 Date2 代表第一个时间跨度，Date2 和 Date3 代表第二个时间跨度。如果日期的顺序发生变化，您将不得不定义一个类似于第一个 if 的 else。 

    Dim date1 As Date = #1/1/2013 8:30:00 AM#
    Dim date2 As Date = #1/1/2013 11:30:00 PM#
    Dim date3 As Date = #1/1/2013 10:00:00 PM#
    Dim date4 As Date = #1/2/2013 6:00:00 AM#
    Dim timePeriod As TimeSpan

    If date3.Date >= date1.Date And date3.Date <= date2.Date Then
        If date4.Date <= date2.Date Then
            timePeriod = date4.TimeOfDay - date3.TimeOfDay
        Else
            timePeriod = date2.TimeOfDay - date3.TimeOfDay
        End If
    End If
    Msgbox(timePeriod.ToString)

编辑：只是timePeriod = date4- date3将差异转换为时间跨度

编辑 2：即使没有共同的时间跨度，上面的代码也会返回 date2-date3。在这种情况下，下面的代码将返回 0。同样，当比较语句Date中的两个变量时，该部分被忽略。IfTimeOfDay

        Dim date1 As Date = #1/1/2013 8:30:00 AM#
        Dim date2 As Date = #1/1/2013 11:30:00 PM#
        Dim date3 As Date = #1/1/2013 10:00:00 PM#
        Dim date4 As Date = #1/2/2013 6:00:00 AM#
        Dim timePeriod As TimeSpan
        If date3 >= date1 And date3 <= date2 Then
            If date4 <= date2 Then
                timePeriod = date4 - date3                  
            ElseIf date3 < date2 Then                   
                timePeriod = date2 - date3
            ElseIf date3.Date = date2.Date Then                    
                If date3.TimeOfDay < date2.TimeOfDay Then                        
                    timePeriod = date2 - date3
                Else
                timePeriod = TimeSpan.FromDays(0)
                End If
            Else
                timePeriod = TimeSpan.FromDays(0)
            End If
        End If
        MsgBox(timePeriod.ToString)
于 2013-05-20T02:32:12.413 回答
0

像这样？

            Dim d1 As DateTime = "1/22/2018 8:30:00 AM"
            Dim d2 As DateTime = "1/29/2018 5:30:00 PM"
            Dim ts As TimeSpan = d2.Subtract(d1)
            MessageBox.Show("Total Hours are " & Convert.ToDouble(Math.Round(ts.TotalHours, 2)))

随便玩玩

于 2018-01-23T06:46:24.893 回答