取系统时间和时间格式
'20080812165758
Dim file_Datetime As String = DateTime.Now.ToString("yyyyMMddHHmmss")
Dim strTime As String = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
'增加或减当天的时间的天数
Dim strTime As String = DateTime.Now.AddDays(-3).ToString("yyyy/MM/dd")
'DateADD函數
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数:
interval:必要。字符串表达式,是所要加上去的时间间隔。
number:必要。数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。
date:必要。Variant (Date) 或表示日期的文字,这一日期还加上了时间间隔。
例如:Dim StrMTime As String = DateAdd(DateInterval.Month, -1, DateTime.Now) ‘当前时间减少一个月
倒计时
Code