از تابع DateDiff در ماکرو اکسل VBA می توان برای بدست آوردن تعداد روزها بین دو تاریخ استفاده کرد.
یک دکمه فرمان Button را در صفحه کار خود قرار دهید و خطوط کد زیر را اضافه کنید:
Dim firstDate As Date, secondDate As Date, n As Integer
firstDate = DateValue("Jan 19, 2020")
secondDate = DateValue("Feb 25, 2020")
n = DateDiff("d", firstDate, secondDate)
MsgBox n
ابتدا دو تاریخ را اعلام می کنیم. بعد ، ما دو تاريخ را با استفاده از تابع DateValue آغاز مي كنيم.
عملکرد DateDiff سه آرگومان دارد. برای اولین بحث "d" را پر کنید زیرا می خواهیم تعداد روزها بین دو تاریخ باشد. در پایان، ما از MsgBox برای نمایش تعداد روزهای بین دو تاریخ استفاده می کنیم.
چنانچه آرگومان "d" را به "ww" تغییر دهید، تعداد هفته ها بین دو تاریخ به دست آید.
ورود به سایت