date_begin = CDate(InputBox("请输入时间,格式:1970-01-01"))date_diff = DateDiff("d", date_begin, date)msgbox "从 " & date_begin & "到今天 " & date & "是 " & date_diff & "天"
本文共 229 字,大约阅读时间需要 1 分钟。
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/archive/2013/04/12/3016179.html