Why dont you use formula =DAYS360("Start Date","End Date")
You dont need to code anything for this.
On Fri, Dec 5, 2008 at 1:21 AM, larry <laurence.tha...@navy.mil> wrote:
>
> 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
-~----------~----~----~----~------~----~------~--~---
