[سوال] اختلاف بين 2 تاريخ

[lonelysam]

من تو برنامه ام دوتا تکست باکس دارم که هرکدومشون تاریخ دریافت میكنن حالا من میخوام بدونم بین تاریخ اول و دوم چند روز وجود دارد(دوستان لطفا يكى كدشو برام بنويسه)

[1120]

سلام دوست عزیز .
برای به دست آوردن اختلاف بین دو تاریخ باید از تابع DateDiff استفاده کنید :

کد:

Dim TheDate As Date   ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg

موفق باشید .