189 8069 5689
日期：DateTime.Now.ToShortDateString
我们注重客户提出的每个要求，我们充分考虑每一个细节，我们积极的做好网站制作、成都网站制作服务，我们努力开拓更好的视野，通过不懈的努力，创新互联赢得了业内的良好声誉，这一切，也不断的激励着我们更好的服务客户。 主要业务：网站建设,网站制作,网站设计,微信平台小程序开发,网站开发,技术开发实力，DIV+CSS，PHP及ASP，ASP.Net，SQL数据库的技术开发工程师。
时间：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 获取此实例所表示日期的年份部分。
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)
Sub gettime()
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
两种方式自己选用
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