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

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

　　

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/youngt/p/3016179.html