vb.net取时间的简单介绍

vb.net 获取互联网的北京时间

Public Function GetBeijingTime() As DateTime

        Dim dt As DateTime

        Dim wrt As WebRequest = Nothing

        Dim wrp As WebResponse = Nothing

        Try

            wrt = WebRequest.Create("")

            wrp = wrt.GetResponse()

            Dim html As String = String.Empty

            Using stream As Stream = wrp.GetResponseStream()

                Using sr As New StreamReader(stream, Encoding.UTF8)

                    html = sr.ReadToEnd()

                End Using

            End Using

            Dim tempArray As String() = html.Split(";"c)

            For i As Integer = 0 To tempArray.Length - 1

                tempArray(i) = tempArray(i).Replace(vbCr  vbLf, "")

            Next

            Dim year As String = tempArray(1).Split("="c)(1)

            Dim month As String = tempArray(2).Split("="c)(1)

            Dim day As String = tempArray(3).Split("="c)(1)

            Dim hour As String = tempArray(5).Split("="c)(1)

            Dim minite As String = tempArray(6).Split("="c)(1)

            Dim second As String = tempArray(7).Split("="c)(1)

            dt = DateTime.Parse(year  "-"  month  "-"  day  " "  hour  ":"  minite  ":"  second)

        Catch generatedExceptionName As WebException

            Return DateTime.Parse("2011-1-1")

        Catch generatedExceptionName As Exception

            Return DateTime.Parse("2011-1-1")

        Finally

            If wrp IsNot Nothing Then

                wrp.Close()

            End If

            If wrt IsNot Nothing Then

                wrt.Abort()

            End If

        End Try

        Return dt

    End Function

相关问答

Q1: 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 '相差的天数（星期1与当前星期几相差的天数）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

Q2: vb.net 查询 日期

dim 现在的时间 as date = Now

"Select * From 表 Where 开始的时间= # " 现在的时间 "# And 结束的时间= # " 现在的时间 " # "

Q3: vb.net如何获取时间格式?

可以访问注册表HKEY_CURRENT_USER\Control Panel\International下面的一些键值

如sShortDate键值表示的是短日期sLongDate表示的是长日期

中文下的短日期是 yyyy-M-d

中文下的长日期是 yyyy'年'M'月'd'日'

Q4: vb.net获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

取得 后 再 分离出你所需vb.net取时间的vb.net取时间，分别赋值 就行了vb.net取时间，当然 还是 有 函数vb.net取时间的

Q5: vb net获取系统时间

Sub gettime()

   

   nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")

   MsgBox nowtime

   

End Sub

其中DateTime.Now为当前系统的时间

Format是设置时间格式

效果如下

vb.net取时间的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net取时间的信息别忘了在本站进行查找喔。