13518219792
Sub gettime()
创新互联专业为企业提供盐田网站建设、盐田做网站、盐田网站设计、盐田网站制作等企业网站建设、网页设计与制作、盐田企业网站模板建站服务，十年盐田做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
日期：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 获取此实例所表示日期的年份部分。
两种方式自己选用
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
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)
