计算到今天多少天--字符集要选GB2312 

date_begin = CDate(InputBox("请输入时间，格式:1970-01-01"))
date_diff = DateDiff("d", date_begin, date)
msgbox "从 " & date_begin & "到今天 " & date & "是 " & date_diff & "天"

　　

posted @ 2013-04-12 10:51  youngt  阅读(196)  评论(0)  编辑  收藏  举报