display negative values as $0.00

[av8tordude]

This code is subtracting one value with another, but if the results are negative, how can I display the value as $0.00?

[VBA]frmPDCalc.DL8B.Caption = Format(CCur(Replace(Replace(frmPDCalc.EL6B.Caption, "$", ""), ",", "")) - CCur(Replace(frmPDCalc.Test7B.Caption, "*", "")), "$##,###0.00")[/VBA]

[Paul_Hossler]

The format string

"$##,###0.00";$0.00;$0.00"

should work

Paul

[Artik]

For example[VBA] MsgBox Format(Application.Max(2.3567 - 3.9834, 0), "$##,###0.00")
MsgBox Format(Application.Max(10.3567 - 3.9834, 0), "$##,###0.00")
MsgBox Format(Application.Max(2.3567 - 2.3567, 0), "$##,###0.00")[/VBA]

Artik