'添加一个label标签名字label1 用来显示时间
成都创新互联公司是一家专业提供厦门企业网站建设,专注与网站设计制作、网站制作、HTML5、小程序制作等业务。10年已为厦门众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
'再添加一个timer控件 名字timer1 interval属性=1000 用来计时
'窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
form 的load事件中加一句：timer1.interval=1000
在一个按钮里面加入一句触发timer事件开始计时的代码：
timer1.enabled=true
timer的tick事件中加入这么两句：
textbox1.backcolor=color.red
timer1.enabled=false
dim date as DateTime = DateTime.Parse(TextBox1.Text)
TextBox2.Text = date.ToShortDateTime()
日期类型有好多种转换表达式， 特别的使用.ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式。
将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。
例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，
小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)
补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。
可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。
VB.Net需要在.Net Framework平台上才能执行。
pre class="html" name="code" /prepre class="html" name="code"Imports System.Runtime.InteropServices
StructLayout(LayoutKind.Sequential) _
Public Structure SYSTEMTIME
Public Year As Short
Public Month As Short
Public DayOfWeek As Short
Public Day As Short
Public Hour As Short
Public Minute As Short
Public Second As Short
Public Miliseconds As Short
End Structure
'api函数声明
DllImport("kernel32.dll", CharSet:=CharSet.Ansi) _
Public Shared Function SetSystemTime(ByRef time As SYSTEMTIME) As Boolean
End Function
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ServerTime As Date = F.G("select getdate()")
ServerTime = ServerTime.AddHours(-8)
Dim t As New SYSTEMTIME()
t.Year = ServerTime.Year()
t.Month = ServerTime.Month()
t.Day = ServerTime.Day
t.Hour = ServerTime.Hour
'这个函数使用的是0时区的时间,对于我们用+8时区的,时间要自己算一下.如要设12点，则为12-8
t.Minute = ServerTime.Minute
t.Second = ServerTime.Second
t.Miliseconds = ServerTime.Millisecond
Dim v As Boolean = SetSystemTime(t)
MessageBox.Show(v)
End Sub/prebr
pre/pre
pre class="vb" name="code" /prepre class="vb" name="code" /prepre class="vb" name="code" /pre
