I am trying to creat a code for caculating the number of days between
two dates. N=A-N causes a type mismacth run time error. Also looking
for any other improvements. Nested if may need to be cleared up.
Thanks for any help.
Option Explicit
Public M1 As Integer, M2 As Integer, D1 As Integer, D2 As Integer, Y1
As Variant, Y2 As Variant
Public N As Integer, A As Integer
Sub DayDelta()
M1 = Cells(2, 2).Value
D1 = Cells(3, 2).Value
Y1 = Cells(4, 2).Value
M2 = Cells(2, 4).Value
D2 = Cells(3, 4).Value
Y2 = Cells(4, 4).Value
Call Daycalc(M1, D1, Y1, A)
N = A
Call Daycalc(M2, D2, Y2, A)
N = A - N
N = Cells(3, 5).Value
End Sub
Sub Daycalc(M, D, Y, A)
Public M As Integer, D As Integer, Y As Variant, A As Integer
Select Case M
Case 1
A = 0
Case 2
A = 31
Case 3
A = 59
Case 4
A = 90
Case 5
A = 120
Case 6
A = 151
Case 7
A = 181
Case 8
A = 212
Case 9
A = 243
Case 10
A = 273
Case 11
A = 304
Case 12
A = 334
End Select
A = A + Y * 365 + Int(Y / 4) + D + 1 - Int(Y / 100) + Int(Y / 400)
If Int(Y / 4) = Y / 4 Then
If Y / 400 = Int(Y / 400) Then
If M < 3 Then
A = A - 1
End If
Else
If Y / 100 <> Int(Y / 100) Then
If M < 3 Then
A = A - 1
End If
End If
End Sub
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
