Convert Money To Money Type Vietnamese In PowerBuilder
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
global type f_vnd from function_object end type forward prototypes global function string f_vnd (decimal ad_money) end prototypes global function string f_vnd (decimal ad_money);Long ld_tmp, ld_remain String ls_value ld_tmp = Int(ad_money / 100000) ls_value = String('100000-' + String(ld_tmp), Fill('@',12)) ld_remain = ad_money - (ld_tmp * 100000) ld_tmp = Int(ld_remain / 50000) ls_value = ls_value + String('50000-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 50000) ld_tmp = Int(ld_remain / 20000) ls_value = ls_value + String('20000-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 20000) ld_tmp = Int(ld_remain / 10000) ls_value = ls_value + String('10000-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 10000) ld_tmp = Int(ld_remain / 5000) ls_value = ls_value + String('5000-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 5000) ld_tmp = Int(ld_remain / 1000) ls_value = ls_value + String('1000-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 1000) ld_tmp = Int(ld_remain / 500) ls_value = ls_value + String('500-' + String(ld_tmp), Fill('@',12)) ld_remain = ld_remain - (ld_tmp * 500) ld_tmp = Int(ld_remain / 200) ls_value = ls_value + String('200-' + String(ld_tmp), Fill('@',12)) Return ls_value end function |
Find Projects On Github click here
Good Luck!
Subscribe
Login
0 Comments
Oldest