Posted to microsoft.public.excel.programming

Tatsujin

external usenet poster

Posts: 25

Overflow error

Any know how to fix this overflow error? Cell A1 has a date value of "01/01/2200".

Sub errTest()
Dim d1, currDay As Date
Dim r As Integer

currDay = Date
d1 = Sheet1.Range("A1").Value

r = currDay - d1 - 7 ' Error because A1 = 01/01/2200

msgbox r

End Sub

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Overflow Error	Bishop	Excel Programming	12	June 26th 09 12:49 PM
Overflow Error	Bishop	Excel Programming	2	June 26th 09 05:12 AM
overflow error	Brad	Excel Programming	4	April 2nd 09 10:39 PM
Overflow error	Jim Berglund	Excel Programming	3	January 30th 05 05:57 PM
Help! Overflow Error 6	Gauthier	Excel Programming	6	September 24th 04 12:57 PM

All times are GMT +1. The time now is 04:42 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us