Format numberformat Single
 

Hello,

In a sheet a have the following function :

Public Function feetAndInchToMeters(feet, inch) As Single
Dim sngFeet As Single
Dim sngInches As Single
Dim sngMeter As Single
Dim feet2Meter As Single
Dim inch2Meter As Single

sngFeet = feet
sngInches = inch
feet2Meter = 0.3048
inch2Meter = 0.0254
ActiveCell.NumberFormat = "0.00 \m"
sngMeter = (sngFeet * feet2Meter) + (sngInches * inch2Meter)

feetAndInchToMeters = sngMeter
End Function

when I asign the function to a cell and insert the values 5 and 3 I get the
number 1,6002 in sted of 1,60 m what is wrong whith my function ?

Thanks in advance,

Benny

Format numberformat Single
 

I don't think you can apply cell formatting from a function, only calculate
results

Apply your formatting manually, or return the answer as text formatted the
way your wish


"BenCoo" wrote:

Hello,

In a sheet a have the following function :

Public Function feetAndInchToMeters(feet, inch) As Single
Dim sngFeet As Single
Dim sngInches As Single
Dim sngMeter As Single
Dim feet2Meter As Single
Dim inch2Meter As Single

sngFeet = feet
sngInches = inch
feet2Meter = 0.3048
inch2Meter = 0.0254
ActiveCell.NumberFormat = "0.00 \m"
sngMeter = (sngFeet * feet2Meter) + (sngInches * inch2Meter)

feetAndInchToMeters = sngMeter
End Function

when I asign the function to a cell and insert the values 5 and 3 I get the
number 1,6002 in sted of 1,60 m what is wrong whith my function ?

Thanks in advance,

Benny