عدد الايام بين تاريخين

السلام عليكم ورحمة الله وبركاته

أخى الفاضل اليك هذا الكود و ان شاء الله يفى بالغرض

Private Sub Form_Load()
'Replace the dates below with the dates you want to calculate the time elapsed
'between them. If you want that one of those dates will be the current date, Place 'Date'
'instead of one them.
mytotaldays = DateDiff("d", "20/12/80", "4/6/83")
Myyears = Int(mytotaldays / 365)
mydays = mytotaldays - Myyears * 365
MsgBox "The Time elapsed between the two dates is " & _
mytotaldays & " Days, Which are " & Myyears & " Years, And " _
& mydays & " Days"
End Sub

Private Sub Command1_Click()
Dim Date1 As Date, Date2 As Date

Date1 = "1/1/1427" ' التاريخ الاصغر

Date2 = "5/2/1427"  ' التاريخ الاكبر

' d لحساب عدد الايام نضع حرف 
' m لحساب عدد الاشهر نضع حرف 
' y لحساب عدد السنين نضع حرف

Print DateDiff("d", Date1, Date2)

End Sub

;)

اشكركم جزاكم الله خير ممكن استفسار من الاخ العقدة هل انت مصرى؟ من المنصورة؟

أنـا --> كـل البــلاد العـربـيــة والمسـلمة