[ExcelVBA] How to convert double to integer

 

I need some help with something.

In VBA I have a snippet of code...

If dblTime > 1 Then
intResult = dblTime
dblTime = dblTime - intResult
End If

Works great if the value fed into dblTime is 1.454. The intResult = 1 and
the dblTime becomes .454

However, if the value of dblTime is 1.569 then the intResult becomes 2. I
need it to stay at 1. I'm sure there is some kind of convert function that
I'm not thinking of that will just extract the current whole number, but
I've come up blank.

Ideally, I want to end up with two variables splitting the whole number
from the decimal.

Thanks.

--
Dawn Bleuel
Word MVP

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 4

Visit Your Group

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___