Format ??? Resolved

[tiguy]

Hi All

I cant not seem to figure this out . Can anyone look at this??

Step$ = .0003

Step1 = Abs(Int(Format(Step$, "##.####')*10000))

The problem is that "Step" in this = 2 when formatted. It should be 3

This seems to work for on all numbers except .0003 in this example.
Thanks Reston

[dglienna]

I don't think I understand.

Step$ is not valid in VB. You should use Option Explicit.

Option Explicit
 
Private Sub Form_Load()
Dim step1 As Currency
Dim stepx As Currency
stepx = 0.0003
step1 = Abs(Format(stepx * 10000, "#.#####"))
MsgBox step1
End Sub

Is this what you want? ?

[tiguy]

Step$ is a string in my app.

And thank for helping, that worked nice.

Reston

[dglienna]

It's not good to let VB coerce the values. You set Step$ = .0003 which generated an error on my system. That's why I changed it.

As glad as it worked, I'm happy.

[tiguy]

I'm not getting an error on my system?

[tiguy]

Hey do you have any idea why vb was rounding 3 to 2 the way i had things or was that the problem that the format was all wrong.


Private Sub Command1_Click()
ee$ = 0.0003
'tth$ = Abs(Int(Format(ee$, ".####") * 10000))
step1 = Abs(Int((Format(ee$ * 10000, "#.#####"))))

End Sub
I want to make sure that step1 is forced to an interger.Thats why it's in there

reston

[Luke K]

Well forcing it to an integer means no decimal places, thus, vb must round it Use a double and format it in this way:

Private Sub Form_Load()
 
    Dim dblL As Double
 
    dblL = 34.32
    MsgBox dblL & vbCrLf & Format(dblL, "##")
 
End Sub

The output from the MsgBox is:

34.32
34

[dglienna]

I'm not getting an error on my system?

Must be that I have option explicit in every module/form.

In the VB IDE Click on Tools -> Options, and then tick the box that says
"Require Variable Declaration" and it will put Option Explicit in every module/form automatically. Only in future projects. You have to paste it into current projects.

It will then error out when you don't declare a variable or something like trying to set an integer to a string value.