将时间戳转换为半小时

时间:2013-02-25 08:07:07

标签: vb.net

我正在编写一个函数,使用Visual Studio 2010将时间转换为最接近的半小时。 例如,15:23至15:30,如果15:05,它将转换为15:00。

有人有想法吗?提前谢谢。

2 个答案:

答案 0 :(得分:2)

您可以使用此方法:

Public Enum eRoundingDirection
    up
    down
    nearest
End Enum

Public Shared Function RoundDateTime(dt As DateTime, minutes As Integer, direction As eRoundingDirection) As DateTime
    Dim t As TimeSpan
    Select Case direction
        Case eRoundingDirection.up
            t = (dt.Subtract(DateTime.MinValue)).Add(New TimeSpan(0, minutes, 0))
        Case eRoundingDirection.down
            t = (dt.Subtract(DateTime.MinValue))
        Case Else
            t = (dt.Subtract(DateTime.MinValue)).Add(New TimeSpan(0, minutes \ 2, 0))
    End Select

    Return DateTime.MinValue.Add(New TimeSpan(0, (CInt(t.TotalMinutes) \ minutes) * minutes, 0))
End Function

将当前时间四舍五入到最近的半小时:

Dim rounded = RoundDateTime(Date.Now, 30, eRoundingDirection.nearest):

最初找到(在C#中)here

答案 1 :(得分:0)

查看此答案how to round time 这是一个javascript示例,但vb.net应该可以实现。