Dim a As Date = #08/11/2024#
Dim b As Integer = DateDiff('d',date(),a)
msgbox(b)
Dim a As Date = #08/11/2024#
Dim b As Integer = DateDiff("d", New Date(), a)
msgbox(b)
建议花时间学学编程基础
Dim a As Date = #11/08/2024#
Dim b As Integer = DateDiff("d", a, Date.Today)
msgbox(b)