How do you get VB6 to initialize doubles with +infinity, -infinity and NaN?

vb6 nan infinity
bugmagnet picture bugmagnet · May 20, 2009 · Viewed 7.3k times · Source

VB6 doesn't appear to make it that easy to store +infinity, -infinity and NaN into double vars. It would help if it could so that I could do comparisons with those values in the context of complex numbers. How?

Answer

YogoZuno picture YogoZuno · May 20, 2009

Actually, there is a MUCH simpler way to get Infinity, -Infinity and Not a Number:

public lfNaN    as Double ' or As Single
public lfPosInf as Double
public lfNegInf as Double

on error resume next    ' to ignore Run-time error '6': Overflow and '11': Division by zero
lfNaN    =  0 / 0       ' -1.#IND
lfPosInf =  1 / 0       '  1.#INF
lfNegInf = -1 / 0       ' -1.#INF

on error goto 0         ' optional to reset the error handler

Related questions

Does VBA have Dictionary Structure?

Does VBA have dictionary structure? Like key<>value array?

Read More
VBA array sort function?

I'm looking for a decent sort implementation for arrays in VBA. A Quicksort would be preferred. Or any other sort algorithm other than bubble or merge would suffice. Please note that this is to work with MS Project 2003, so should …

Read More
How do I resolve "Run-time error '429': ActiveX component can't create object"?

My company has a VB6 application using Crystal Reports 7 which a client has asked to be installed on Windows 7 32 bit. It is currently installed on Windows XP 32bit SP2 machines at the client. Connection to the DB is done via …

Read More