[Solved] Format textbox as percentage

[streub]

I not sure how to format a textbox value for percentage.

this is what I have thus far:

Code: Select all

Sub oPct

oDoc = ThisComponent
oDocView = oDoc.getCurrentController()

	oForm = oDoc.drawpage.forms(0)
		tbp = oForm.getbyname("tbp")
		tbr = oForm.getbyname("tbr")
		tbd = oForm.getbyname("tbd")
	
		tbp.text  = (tbr.value - tbd.value) / tbr.value * 100
		tbp.text format ("percent")
		
		
	
	



End Sub

[Zizi64]

What about the function TEXT:

Code: Select all

tbp.text  = Format((tbr.value - tbd.value) / tbr.value * 100,"0.00")&"%"

[Villeroy]

A text box has no number formats. A numeric field or formatted field has.

[streub]

You are correct! I should have stated it is a field formatted as percent.

The formatting is functioning however the value is displayed as whole number with decimals until I bring focus to that field and depress "ENTER".
The field then rounds up to the nearest whole number.

Suggestions?

Thank you

[Zizi64]

Please upload your ODF type sample file here together with the embedded macro.

[streub]

Issue resolved using Calc and formulas.

Thank you all.