|
Try below procedure. Hope it helps. PS:this procedure is not tested p**--------------------------------------------------------------- p** getFract p**--------------------------------------------------------------- P getFract B D getFract PI 20A D pNum 10S 4 const d wInt s 6S 0 d wDec s 4S 4 d wDec1 s 4S 0 d wDivStr s 5S 0 d wDiv s 4S 0 d wFract s 20A c eval wInt=%int(pNum) c eval wDec=pNum-wInt c eval wDec1=wDec*10000 c eval wDivStr=10000 c dow %rem(wDec1:10)=0 c div 10 wDec1 c div 10 wDivStr c end c eval wDiv=wDec1 c dow %rem(wDivStr:wDiv)>0 OR %rem(wDec1:wDiv)>0 c sub 1 wDiv c end c eval wFract=%char(wInt)+'-'+%char(wDec1/wDiv) c +'/'+%char(wDivStr/wDiv) c return wFract p getFract E -----Original Message----- From: Bob O. [mailto:otis_the_cat@xxxxxxxxxxx] Sent: Friday, October 17, 2003 10:59 AM To: rpg400-l@xxxxxxxxxxxx Subject: Convert Decimal to Fractional Notation Does anyone have an example of converting a decimal number to it's fractional equivalent? For example: 15.3750 = 15-3/8 The decimal field to convert is a 10/4 field. Any help is appreciated. Thanks in advance! _________________________________________________________________ Try MSN Messenger 6.0 with integrated webcam functionality! http://www.msnmessenger-download.com/tracking/reach_webcam _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.