數字型轉文字型，如何保留千位符
當然可以直接操作字串，每隔三位加乙個逗號進去，不過感覺有些麻煩了。今天正好遇到使用者有這個需求，在網上搜了一下，找到乙個簡單的辦法，經測試ok，簡單實現**如下：
data: v_c(20) type c,
v_n type p decimals 2.
v_n = 5422121.23.
write v_n to v_c.
write v_c.
原來只要採用write方式賦值，就可以保留千位符，呵呵。不過，文字型的變數不能是string型的，只能是c型的，不然會報錯。
手工的辦法也不是沒有，網上也找到了乙個函式，沒有測試，僅供參考：
form numtostr using value(znum) changing value(zstr).
data : zclen type i,
n type i,
zcstr(20) type c,
zcstr2(20) type c,
zctemp(3) type c,
zflag(1) type c value '.',
zflag2 type i value 0,
zcdec(20) type c. "記錄小數部分.
zstr = ''.
check znum <> 0.
if znum <= -1000.
zflag2 = 1.
znum = abs( znum ).
endif.
if znum >= 1000.
zcstr = znum.
"壓縮字串，去除前面的空格。
condense zcstr no-gaps.
" 分離整數與小數，好單獨處理整數。
split zcstr at zflag into zcstr zcdec.
zclen = strlen( zcstr ).
" 在迴圈中從右面在每三位的前面加上乙個逗號。
while zclen > 3.
n = zclen - 3.
zctemp = zcstr+n(3).
if not zcstr2 is initial.
concatenate zctemp zcstr2 into zcstr2 separated by ','.
else.
zcstr2 = zctemp.
endif.
zclen = zclen - 3.
endwhile.
" 將不剩下的不足三位數加到前面
concatenate zcstr+0(zclen) zcstr2 into zcstr2 separated by ','.
if zflag2 = 1.
concatenate '-' zcstr2 into zcstr2.
endif.
clear zcstr.
" 將處理過的整數與小數連線起來。
concatenate zcstr2 zcdec into zcstr separated by zflag.
" 將值返回
zstr = zcstr.
else.
zstr = znum.
endif.
endform.
數字型轉文字型，如何保留千位符
當然可以直接操作字串，每隔三位加乙個逗號進去，不過感覺有些麻煩了。今天正好遇到使用者有這個需求，在網上搜了一下，找到乙個簡單的辦法，經測試ok，簡單實現 如下 data v c 20 type c,v n type p decimals 2.v n 5422121.23.write v n to v...
Oracle數字型，字元型，日期型函式
一.數字型函式 在oracle資料庫中，dual表示真實存在的，它本身包含了乙個dummy欄位，如果使用者刪除了該錶，則oracle將無法啟動。下面記錄的是部分函式。mod n1,n2 求餘，當n2為0時，返回的是n1。sign n 函式，返回引數n的符號。即正數返回1，負數返回 1,0就返回0。r...
sql數字型 字元型注入的區別
當輸入的參 x 為整型時，通常 abc.php 中 sql 語句型別大致如下 select from 表名 where id x 這種型別可以使用經典的 and 1 1 和 and 1 2 來判斷 url 位址中輸入 www.com abc.php?id x and 1 1 頁面依舊執行正常，繼續進...