VisualFreeBasic代码_日期和时间

Now 获取当前系统时间为日期序列号

Dim a As Double = Now()
Print Format(a, "yyyy-mm-dd hh:mm:ss")

Date 以字符串形式返回当前系统日期

Print Date '打印当前日期

Time 以字符串形式返回当前系统时间

Print "目前的时间是："; Time

Timer 返回电脑开机时间，单位秒

Print "电脑开机了：" & Timer & "秒"

SetDate 设置当前的系统日期

SetDate “2099-1-1”

SetTime 设置当前系统时间

SetDate “1:2:3”

从日期序列中提取信息

Year    从日期序列号获得一年
Month   从日期序列号获得一年中的月份
Weekday 从日期序列号获取星期几
Day      从日期序列号获取一个月的日子
Hour    从日期序列号获取一天中的小时
Minute  从日期序列号获取分钟。
Second  从日期序列号获取秒数
DatePart    从日期序列获取日期的单独部分，比如年、月、日等

创建日期序列

DateValue   从字符串返回日期序列号
TimeSerial  获取日期序列号指定的小时、分钟、和秒
DateSerial  创建日期序列号
TimeValue   从时间字符串获取日期序列号

计算日期时间差

DateAdd 以指定的间隔偏移日期

Dim d As Double
d = Now()
Print "1小时后时间", Format( DateAdd( "h", 1, d ), "yyyy-mm-dd hh:mm:ss")
Print "1天后时间", Format( DateAdd( "d", 1, d ), "yyyy-mm-dd hh:mm:ss")
Print "1周后时间", Format( DateAdd( "ww", 1, d ), "yyyy-mm-dd hh:mm:ss")
Print "1个月后时间", Format( DateAdd( "m", 1, d ), "yyyy-mm-dd hh:mm:ss")

DateDiff 获取以指定间隔测量的两个日期的差额

Dim ds As Double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)
Dim ts As Double = DateSerial(2006, 1, 3)   + TimeSerial(9, 10, 33)
Print "2个日期相差：" & DateDiff("YYYY", ds, ts) & "年"
Print "2个日期相差：" & DateDiff("d", ds, ts) & "天"
Print "2个日期相差：" & DateDiff("s", ds, ts) & "秒"