Before assigning variables values, use on error goto <label_name> or on error resume next. When you use on error goto <label_name>, you can stop executing further and directly go to end giving some error information in msgbox, and when you use on error resume next, the line with error will not be executed and the next executable code after that will be executed. For more help you can google on this.
Regards, Aditya Mundra On Fri, Dec 5, 2008 at 1:21 AM, larry <[EMAIL PROTECTED]> 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 -~----------~----~----~----~------~----~------~--~---
