锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net时分秒的简单介绍

IT技术分秒

vb.net中怎么获取日期中的年月日时分秒Dim ThisDay As String = Format(Now, "yyyy-MM-dd")'获得当前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay)'当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek'获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay'相差vb.net时分秒的天数（星期1与当前星期几相差vb.net时分秒的天数）
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy")'获取当前日期vb.net时分秒的年份
Dim MyMonth As Integer = Format(Now, "MM")'获取当前日期vb.net时分秒的月份
Dim MyDay As Integer = Format(Now, "dd")'获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是vb.net时分秒："Yourday)
vb.net怎样把小时、分钟、秒转换为分钟这个简单 。dim time1 datetime ="1:20:30"dim h as int =time1.tostring("hh")dim M as int =time1.tostring("MM")dim S as int=time1.tostring("ss")dim SUMfen as double=h*60 M S/60SUMfen就是最后 vb.net时分秒的结果 。语法vb.net时分秒你自己修改下 。纯手打 。
vb.net 时间统计问题一楼风中vb.net时分秒的奶牛的做法很棒vb.net时分秒 ， 建议楼主采纳他的回答 。
只是其中有一个Bugvb.net时分秒，就是“倒数第二次累计分钟数为59 ， 累计秒数达到60的时候，会出现**:60:**” 。例如{"10:57:35", "2:02:51"} ， 我这里做了修改，供参考 。
另外，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如何获取时间格式?可以访问注册表HKEY_CURRENT_USER\Control Panel\International下面vb.net时分秒的一些键值
如sShortDate键值表示vb.net时分秒的是短日期sLongDate表示vb.net时分秒的是长日期
中文下vb.net时分秒的短日期是 yyyy-M-d
中文下的长日期是 yyyy'年'M'月'd'日'
【vb.net时分秒的简单介绍】关于vb.net时分秒和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：sqlserver2000下载600m，sql2000下载免费版

    下一篇：毕业设计需要什么软件，毕业设计要用电脑吗