469,299 Members | 2,069 Online

# Convert ounces to pounds and ounces 67
I have an invoice that lists the various products' weights in ounces. My client would then like to total those amounts (no big deal), but then post the total amount in the format of "X Lbs and Y Oz".
Can anyone come up with a means of deriving such text items? By the way, he would like to reflect the ounces to the first decimal point (each of the items carries their weight to a single digit).
Thanks for the assistance.
Sep 23 '10 #1

I know there are 16 Avoirdupois ounces in a pound, 12 Troy ounces.
A condition here is "By the way, he would like to reflect the ounces to the first decimal point (each of the items carries their weight to a single digit)." So we have partial ounces.
Expand|Select|Wrap|Line Numbers
1. oz = 42.7
2. lb = Int(oz / 16)  'Use 12 if Troy ounces
3. oz = oz - (lb * 16) 'Mod Function returns an integer     'Use 12 if Troy ounces
4. answer = lb & " Lbs and " & Format(oz,"0.0") & " Oz"  'To ALWAYS show Oz to 1 decimal place, even if whole number
5. '2 Lbs and 10.7 Oz

4 6714 Mariostg
332 100+
Knowing there are 16 ounces in a pound:
Expand|Select|Wrap|Line Numbers
1. oz = 8
2. lb = Int(oz / 16)
3. oz = oz Mod 16
4. answer = lb & " lbs and " & oz & " ounces"
5.
Sample above returns answer = 0 lbs and 8 ounces
Sep 24 '10 #2
OldBirdman
675 512MB
I know there are 16 Avoirdupois ounces in a pound, 12 Troy ounces.
A condition here is "By the way, he would like to reflect the ounces to the first decimal point (each of the items carries their weight to a single digit)." So we have partial ounces.
Expand|Select|Wrap|Line Numbers
1. oz = 42.7
2. lb = Int(oz / 16)  'Use 12 if Troy ounces
3. oz = oz - (lb * 16) 'Mod Function returns an integer     'Use 12 if Troy ounces
4. answer = lb & " Lbs and " & Format(oz,"0.0") & " Oz"  'To ALWAYS show Oz to 1 decimal place, even if whole number
5. '2 Lbs and 10.7 Oz
Sep 24 '10 #3
Mariostg
332 100+
OldBirdMan, you are eagle eye but I am sure so does the OP.
Sep 24 '10 #4
67 