Float to integer

[wilro85]

I'm creating a user form where the user can enter latitude and longitude in either Deg/Min/Sec format or Decimal Degrees.

To go from decimal degrees into Deg/Min/Sec I need to do the following
A=Decimal Degrees (Single)
X=Degrees (Integer)
Y=Minutes (Integer)
Z=Seconds (Single)

X = Integer(A) <-- I need to cast A as an integer or truncate it. Not sure how to do this in VBA.
Y = Integer[( A - X ) * 60] <-- Again, needs to be cast as an integer
Z = {[( A - X ) * 60] - Y} * 60

I didn't see a native truncate function in Excel and in the past I've always used Left() or Right()

How would y'all do this?

[shg]

Perhaps ...

Please Login or Register  to view this content.

[wilro85]

Very useful, but the use of MOD has changed in VBA. It is now # mod # instead of mod(#,#)

Please Login or Register  to view this content.

[shg]

That's not VBA, they are worksheet formulas. Excel's MOD is a function, VBA's Mod is an operator.

Also, your d/m/s variables should be Longs, not Singles. Otherwise, you're forcing VBA to do unnecessary type conversions.

DecDeg should be a Double, because that's how it's stored on the worksheet.