vb点虐 如何获取时间？

两种方式自己选用

创新互联公司服务项目包括大悟网站建设、大悟网站制作、大悟网页制作以及大悟网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，大悟网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到大悟省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s As String

s = DateTime.Today.Year()

s = s DateTime.Today.Month()

s = s DateTime.Today.Day()

s = s DateTime.Now.Hour()

s = s DateTime.Now.Minute()

s = s DateTime.Now.Second()

MsgBox(s, vbDefaultButton1, Now())

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As String

s = Format(Now(), "yyyymmddhhmmss")

MsgBox(s, vbYes, Now())

End Sub

怎么在VB点虐 中实时显示时间

定时器中处理

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 10 '10毫秒刷新一次

Timer1.Start() '开启定时器

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Now

End Sub

vb点虐 获取互联网的北京时间

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

vb点虐 获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

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

网站栏目：关于vb点虐 获取时间动态的信息
文章出自：http://pwwzsj.com/article/ddcpgpd.html