Modify code, to show decimals and without rounding.

[countryfan_nt]

Hello friends, hope all is well!

The below code works OK, it is reflected on a progress bar on a userform.

1. I want the results to be non-rounded percentage.
2. With two decimals.
I tried several ways but couldn't figure it out.

Please help, greatly appreciate it in adbavc

Sub ProgressStyle1(Percent As Single, ShowValue As Boolean)

    Const PAD = "                         "
    
    If ShowValue Then
        labPg1v.Caption = PAD & Format(Percent, "0%")
        labPg1va.Caption = labPg1v.Caption
        labPg1va.Width = labPg1.Width
    End If
    labPg1.Width = Int(labPg1.Tag * Percent)

End Sub

 

[pgc01]

Hi

Try replacing "0%" with "0.00%".