Question

在VB中如何获取系统时间

我想在VB中用一个lable显示当前的系统时间，精确到秒，并且一直在跳。
然后因为有的系统是24小时制，有的是12小时制，我要统一，不管你使用哪种，始终显示12小时制的，有上午（8：00--12：00），中午（12：00--13：00），下午（13：00--17：00） 晚上（17：00--00：00）凌晨：（00：00--5：00），早上（5：00--8：00），这个应该怎么写代码，希望高人帮忙下，谢谢！

Answer 1

日期：DateTime.Now.ToShortDateString
时间：DateTime.Now.ToFileTime
可以这样用：
Response.Write(DateTime.Now.ToShortDateString()
+
"
");
Response.Write(DateTime.Now.ToShortTimeString()
+
"
");
输出：
2007-1-29
8:49
Response.Write(DateTime.Now.ToLongDateString()
+
"
");
Response.Write(DateTime.Now.ToLongTimeString()
+
"
");
输出：
2007年1月29日
8:49:15
不知合不合你要求
我是要VS2005下使用，很好用。可查看MSDN以下简单例出：
.NET
Framework
类库
DateTime
成员
请参见
构造函数
字段
方法
属性
显式接口实现
全部折叠
全部展开
成员选项：全部显示
成员选项：已筛选
包括继承的成员
包括受保护的成员
仅
.NET
Compact
Framework
成员
表示时间上的一刻，通常以日期和当天的时间表示。
下表列出了由
DateTime
类型公开的成员。
公共构造函数
名称
说明
DateTime
已重载。初始化
DateTime
结构的新实例。
页首
公共字段
名称
说明
MaxValue
表示
DateTime
的最大可能值。此字段为只读。
MinValue
表示
DateTime
的最小可能值。此字段为只读。
页首
公共属性
名称
说明
Date
获取此实例的日期部分。
Day
获取此实例所表示的日期为该月中的第几天。
DayOfWeek
获取此实例所表示的日期是星期几。
DayOfYear
获取此实例所表示的日期是该年中的第几天。
Hour
获取此实例所表示日期的小时部分。
Kind
获取一个值，该值指示由此实例表示的时间是基于本地时间、协调通用时间
(UTC)，还是两者皆否。
Millisecond
获取此实例所表示日期的毫秒部分。
Minute
获取此实例所表示日期的分钟部分。
Month
获取此实例所表示日期的月份部分。
Now
获取一个
DateTime
对象，该对象设置为此计算机上的当前日期和时间，表示为本地时间。
Second
获取此实例所表示日期的秒部分。
Ticks
获取表示此实例的日期和时间的刻度数。
TimeOfDay
获取此实例的当天的时间。
Today
获取当前日期。
UtcNow
获取一个
DateTime
对象，该对象设置为此计算机上的当前日期和时间，表示为协调通用时间
(UTC)。
Year
获取此实例所表示日期的年份部分。

Answer 2

窗体上放一个Timer控件

Dim vHour%, vState$
Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()

vHour = Hour(Time)
If vHour > 7 And vHour < 12 Then vState = "上午"
If vHour > 11 And vHour < 13 Then vState = "中午"
If vHour > 12 And vHour < 17 Then vState = "下午"
If vHour > 16 And vHour < 24 Then vState = "晚上"
If vHour > -1 And vHour < 6 Then vState = "凌晨"
If vHour > 4 And vHour < 8 Then vState = "早上"
Label1.Caption = vState & "好,现在时间是: " & IIf(Hour(Time) > 12, Hour(Time) Mod 12, Hour(Time)) & ":" & Minute(Time) & ":" & Second(Time)
End Sub

Answer 3

在窗口中放一个TIMER控件写入如下代码：
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "AMPM(hh:mm:ss)")
End Sub

Answer 4

private
sub
command1_click()
dim
a
as
date
a=now
text1.text=format(a,"yyyymmdd")
end
sub