vb.net 时间相加 VB的两个时间相加

VB.net 2010 \u5b57\u7b26\u4e32\u7c7b\u578b\u7684\u65f6\u95f4\u503c\u5982\u4f55\u76f8\u52a0\uff1f

Dim MyTime1 As DateTime = New DateTime(1, 1, 1, 4, 30, 30)
Dim MySpan As New TimeSpan(5, 30, 30)
Dim MyInfo As String = MyTime1 + MySpan
MsgBox(MyInfo)

format( dateadd("s",DateDiff("s",#00:00:00#,"00:12:30"),"01:00:20"),"hh:mm:ss")
\u4e00\u4e2a\u65f6\u95f4\u51cf\u53bb\u5348\u591c0\u65f6\u8f6c\u6362\u4e3a\u79d2\u6570\uff0c\u518d\u52a0\u5230\u53e6\u4e00\u4e2a\u65f6\u95f4\u4e0a\u3002

Module Module1

    Sub Main()

        Console.WriteLine(DateTimeAdd("01:23:45"))
        Console.ReadLine()

    End Sub

    ''' <summary>
    ''' 获取时间的累加值
    ''' </summary>
    ''' <param name="sDatetime"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime
        Dim sysTime As DateTime = DateTime.Now
        Return sysTime.Add(TimeSpan.Parse(sDatetime))
    End Function

End Module

Dim t As String = Me.TextBox1.Text
Dim h, m, s As Int16
h = t.Split(":")(0)
m = t.Split(":")(1)
s = t.Split(":")(2)
Dim d As DateTime = Now
Dim dd As DateTime = d.AddHours(h)
dd = dd.AddMinutes(m)
dd = dd.AddSeconds(s)
Me.Label1.Text = Format(dd, "HH:mm:ss")

扩展阅读：vb5.cccdn.net ... vb net 支持 ... vb官网下载 ... vb.net ... vbnet教程 ... vue pure admin ... vant ui 官网网址 ... vb 日历 漂亮 ... vant ui 官方文档 ...