Display of decimals from a formula result

Question

I work in the healthcare industry and I have been tasked with creating an outpatient dispensing label with an inpatient dispensing system.  This will be used to dispense medication so we need to be able to dispence whole, half and quarter tablets but decimal places cannot have trailing zeros.  To do the dose calculations I use the following formulas
formula 1 {agt_rx.rx_dose}/ tonumber({agt.rx.dose_strength})        
formula 2 {agt_rx.rx_dose_range / tonumber({agt.rxdose_strength})= 0 then '' else ' to '     
formula 3 {agt_rx.rx_dose_range / tonumber({agt_rx.dose_strength})
This works great except formula 3. I take the above formulas and place them into a text box and place a "Number conditional format" on formula 1 and 3 instructing that the trailing 0 do not display and for formula 3 to supress if zero. Only problem is for formula 3 it does everything except supress if zero. Does anyone have a solution for this?
I have tried converting to text and using that but then I run into a problem of showing trailing zero after the decimal (scale value). With totext it's showing to many zero or trailing zero's and you cannot format the number with conditional format. With tonumber I can apply a number conditional format to display the appropriate decimal places but it will not suppress the zero.
The code I tried to supress the zero is a follows.
if {agt_rx.rx_dose_range} / tonumber({agt_rx.dose_strength})=0 then true else false
The code to display the appropriate decimal value is as follows
If CurrentFieldValue = Int(CurrentFieldValue)
Then 0
Else
If
CurrentFieldValue * 10 = Int(CurrentFieldValue * 10)
Then 1
Else
If
CurrentFieldValue * 100 = Int(CurrentFieldValue * 100)
Then 2
Else
If
CurrentFieldValue * 1000 = Int(CurrentFieldValue * 1000)
Then 3
Else
If
CurrentFieldValue * 10000 = Int(CurrentFieldValue * 10000)
Then 4
Else
If
CurrentFieldValue * 100000 = Int(CurrentFieldValue * 100000)
Then 5
Else
If
CurrentFieldValue * 1000000 = Int(CurrentFieldValue * 1000000)
Then 6
Else
DefaultAttribute
So in the end tonumber looks the best but I would still like to show nothing when there is no value (0)
I have screen shots of the end result if you wolld like I can send them to help with the understanding
Edited by: BernieL on Sep 27, 2010 7:39 PM spelling fixed (not my forte)

Answer 1

I found this on another forum and it worked except it still displays a zero whern the field = zero.  Can someone assist me in tweaking the code so it will not display zero.
WhilePrintingRecords; NumberVar p1; NumberVar p2;
StringVar s1;
s1 := ToText({agt_rx.rx_dose_range} / tonumber({agt_rx.dose_strength}),"0.000000000000000");
p1 := instr(s1,".");
p2 := instr(s1+"000000000000000","000000000000000");
if (p2 = p1+1) then s1 := left(s1,p1-1)
               else s1 := left(s1,p2-1);
     s1;
Edited by: BernieL on Sep 28, 2010 10:36 PM