从当前时间到圣诞节的倒计时的天数和秒数

Question

我想用VB做从当前时间到圣诞节的倒计时的天数和秒数，请问怎么做？函数越少越好，代码越短越好。多了我看不懂。菜鸟提问请支持。

Answer 1

DateDiff(interval, date1, date2)DateDiff 函数语法中有下列命名参数：部分 描述 
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 interval 参数的设定值如下：设置 描述 
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 

Answer 2

天数
DateDiff("d", Date, CDate("2004-12-25"))
秒数
DateDiff("s", Date, CDate("2004-12-25"))

Answer 3

秒数
DateDiff("s", Now, CDate("2004-12-25"))