As I wrote before, I am trying to learn how to program so rewriting
some old codes I have is good exercise. In this case, there is a
tricky if then sequence. Another reason is that some of the Excel
functions have well documented bugs. If I can get my own version to
work properly, then I don't need to worry about an error I did not
know about.
On Dec 17, 6:19 am, "Ajay Varshney" <ajayvarshney21...@gmail.com>
wrote:
> 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- Hide quoted text -
>
> - Show quoted text -
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
