Format ??? Resolved

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

I don't think I understand.

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

VB Code:

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? ? :wave:

Step$ is a string in my app.

And thank for helping, that worked nice.

Reston

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.

I'm not getting an error on my system?

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

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

VB Code:

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

Quote:

---

Originally Posted by tiguy

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.