锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net时间计算的信息

IT技术时间

我想知道vb.net中的时间怎么做相加和相减，谢谢DateAdd函数 返回
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔 。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要 。字符串表达式 ， 是所要加上去的时间间隔 。
number 必要 。数值表达式，是要加上的时间间隔的数目 。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期） 。
date 必要 。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔 。
DateDiff函数 返回
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目 。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要 。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
【关于vb.net时间计算的信息】Date1□date2 必要；Variant (Date) 。计算中要用到的两个日期 。
Firstdayofweek 可选 。指定一个星期的第一天的常数 。如果未予指定，则以星期日为第一天 。
firstweekofyear 可选 。指定一年的第一周的常数 。如果未予指定 ， 则以包含 1 月 1 日的星期为第一周 。
vb.net 时间统计问题一楼风中vb.net时间计算的奶牛的做法很棒 ， 建议楼主采纳vb.net时间计算他的回答 。
只是其中有一个Bug ， 就是“倒数第二次累计分钟数为59，累计秒数达到60的时候，会出现**:60:**” 。例如{"10:57:35", "2:02:51"}，我这里做vb.net时间计算了修改，供参考 。
另外 ， AddByInts中不需要进行循环和Select判断，可以简化 。
同时 ， 为了说明类和结构的关系，这里改用类 。
也请一楼风中的奶牛勿怪罪在下啊vb.net时间计算！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}
Dim str As String() = {"10:57:35", "2:02:51"}
Dim time As TimeSerial = New TimeSerial
For Each dt As String In str
time.Add(dt)
Next
MsgBox(time.ToString)
End Sub
End Class
Public Class TimeSerial
Public Hour As Integer' 时间的小时部分
Public Minute As Integer' 时间的分钟部分
Public Second As Integer' 时间的秒钟部分
' 合并添加新的时间值
' param name="value"文本时间格式(00:00:00)/param
Public Sub Add(ByVal value As String)
Dim arr As String() = Split(value, ":")
Dim dts(arr.Length - 1) As Integer
For i As Integer = 0 To arr.Length - 1
dts(i) = CInt(Val(arr(i)))
Next
AddByInts(dts)
End Sub
' 合并添加新的时间值
' param name="value"时间值(仅计算:时、分、秒)/param
Public Sub Add(ByVal value As Date)
Dim dts(2) As Integer
dts(0) = value.Hour
dts(1) = value.Minute
dts(2) = value.Second
AddByInts(dts)
End Sub
Private Sub AddByInts(ByVal value As Integer())
Second= value(2)
If Second = 60 Then
Minute= Int(Second / 60)
Second = Second Mod 60
End If
Minute= value(1)
If Minute = 60 Then
Hour= Int(Minute / 60)
Minute = Minute Mod 60
End If
Hour= value(0)
End Sub
' 获取时间的文本格式(00:00:00)
Public Overrides Function ToString() As String
Return Hour":"Minute":"Second
End Function
End Class
vb.net 时间相加Module Module1
Sub Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End Sub
''' summary
''' 获取时间vb.net时间计算的累加值
''' /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
vb.net时间间隔的计算Public Class Form1
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("从"Now1.ToString"到"Now2.ToString"经过vb.net时间计算了"CStr(CDate((Now2 - Now1).ToString)))
End Sub
实际情况修改下 。
End Class
关于vb.net时间计算和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：拍摄西塘用什么滤镜，西塘拍照适合穿什么颜色衣服

    下一篇：秋冬西装两件套直播文案，主播西服