Rekan-2 bagaimana caranya merapikan tampilan numerik
Bagaimana menghilangkan tanda * supaya bisa diganti dengan space kosong.
Saya sudah coba dikasih space kosong, tapi tampilannya hancur.
Apakah ada cara lainya.
Data-2
Field ukuran Field jumlah (type char)
15.00x1220x2440 160 4
18.00x1220x2440 1925 55
Response.Write(Cpcs(jumlah,ukuran))
Outputnya
15.00x1220x2440 160 *****7.1443 ****4
18.00x1220x2440 1,925 ***103.1461 ***55
Function Cpcs(StrPcs, StrUkuran)
if Right(StrPcs,7) <> " " Then
StorePcs = FormatNumber(Ccur(Trim(Right(StrPcs,7))),0)
StorePack =
String(5,"*")&""&FormatNumber(Ccur(Trim(Left(StrPcs,6))),0)
StorePack = Right(StorePack,5)
Storetbl = Ccur(Left(StrUkuran,5))
Storelbr = Ccur(Mid(StrUkuran,7,4))
StorePjn = Ccur(Mid(StrUkuran,12,4))
StoreVol = String(11,"*")&""&FormatNumber(Round(Storetbl * Storelbr
* Storepjn * StorePcs / 1000000000,4),4)
StoreVol = Right(StoreVol,11)
Cpcs = StorePcs & " " & StoreVol & " " &StorePack
else
Cpcs = " "
end if
End function
Fansul
Indo IT Center - Indonesian IT community, professionals, solutions, and jobs
Subscribe : [EMAIL PROTECTED]
Unsubscribe : [EMAIL PROTECTED]
Website : http://www.IndoIT.net <-- Email @IndoIT.net GRATIS!
IndoIT Chat : DALnet #it-center (dapat diakses lewat website)
