Dengan menggunakan fungsi VB juga paling efektif
Formatnumber( Angkat, Desimal)
Example:
text1.text = formatnumber(label1.caption,2)
tx
Bace - Bace wrote:
> Horas Lae...
> Untuk menampilkan format uang di display (tentu pake label, atau text)
> harus dipahami dahulu model format yang dinginkan, jika format yag
> diinginkan 20.000,00 maka formatnya #,###.00 (perhatikan penulisan
> koma dan titiknya, program vb menganut sistem format amerika, sesuai
> asal program), klu yang diinginkan seperti 20.000,98 maka formatnya
> #,###.##
>
> untuk menampilkannya dilayar dengan menggunakan
> label1.caption = format(label1.caption,"#,###.00") atau
>
> text1.text = format(label1.caption,"#,###.00")
>
>
>
> untuk proses penambahan/pengalian/pengurangan dll, tidak bisa
> menjumlahkan langsung seperti
> text1.text + text2.text, karena hasilnya akan digabungkannya. Untuk
> itu hasil yang ada ti text atau label lebih baik disimpan didalam
> memori dahulu.
>
>
>
> dim nilaiA as double
>
> (kenapa paka double, krn type data double itu bisa menyimpan nilai
> yang ada koma nya, seperti 20.000,98)
>
>
>
> nilaiA = format(text.text,number) knapa number? krn untuk
> mengembalikan nilai text tersebut kedalam numerik. setelah itu
> jumlahkan nilaiA itu dengan nilai apapun,
>
> Jika data disimpan didalam database, yg disimpan adalah nilaiA bukan
> text1.text, walaupun sudah diberi format seperti
> format(text1.text,number), aku jg ngk tau knapa hasil yg disimpan
> didalam database tidak benar, khususnya yang ada komanya itu seperti
> 20.000,98 yg disimpannya slalu 20.000
>
>
>
> jika nilainya disimpan dalam msflexgrid, nilai yang diberikan
> didalamnya jagan diformat. lebih baik kolom msflexgridnya itu yang
> diformat. Klu yang diformat kolomnya, maka setiap angka yang isikan di
> kolom tersebut akan ditampilkan sesuai format, dan bisa langsung di
> sum didalam msflexgrid itu.
>
>
>
>
>
> Semoga membantu: =(oVo)=
> ====================
> BaceInside Publisher
> Copyright @2007
> Not for reproduced, republished.
> Thank You
> ====================
>
>
>
> ----- Original Message ----
> From: Ronal Baharuddin Hutagaol <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Sent: Friday, July 13, 2007 1:46:06 PM
> Subject: [indoprog-vb] Format Currency
>
> Dear VB Mania...
>
> Sampai sekarang saya masih bingung nih untuk menampilkan format uang.
>
> Misalnya di TEXT1.TEXT saya input 20000
> Nah, omotatis angkat itu terlihat dilayar menjadi 20.000
> Nah, komputer tetap membaca 20.000 itu adalah 20000 agar dapat
> dilakukan perkalian atau penjumlahan bilangan.
>
> Nah hal ini juga berlaku ketika kita masukkan ke LABEL1.CAPTION atau
> MSFLEXGRID1, dll...
>
> Kira2 ada solusi untuk permasalahan ini.
>
> Terima KASIH b-4
>
> [Non-text portions of this message have been removed]
>
>
>
> ------------------------------------------------------------------------
> Visit Your Group
> <http://groups.yahoo.com/group/Programmer-VB;_ylc=X3oDMTJlbzYyMzdwBF9TAzk3MzU5NzE0BGdycElkAzgzMzIyNjUEZ3Jwc3BJZAMxNzA1MTE1MzY0BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTE4NDMyMjkwMA-->
>
>
> SPONSORED LINKS
>
> * Indonesia phone card
>
> <http://groups.yahoo.com/gads;_ylc=X3oDMTJjZ2RucmpyBF9TAzk3MzU5NzE0BF9wAzEEZ3JwSWQDODMzMjI2NQRncnBzcElkAzE3MDUxMTUzNjQEc2VjA3NsbW9kBHN0aW1lAzExODQzMjI5MDI-?t=ms&k=Indonesia+phone+card&w1=Indonesia+phone+card&w2=Programmer&w3=Indonesia+tour&w4=Indonesia+travel&w5=Indonesia+flower&c=5&s=106&g=2&.sig=AKMPjrFYkAg0VumdAo5xdA>
> * Programmer
>
> <http://groups.yahoo.com/gads;_ylc=X3oDMTJjYzdrdDNuBF9TAzk3MzU5NzE0BF9wAzIEZ3JwSWQDODMzMjI2NQRncnBzcElkAzE3MDUxMTUzNjQEc2VjA3NsbW9kBHN0aW1lAzExODQzMjI5MDI-?t=ms&k=Programmer&w1=Indonesia+phone+card&w2=Programmer&w3=Indonesia+tour&w4=Indonesia+travel&w5=Indonesia+flower&c=5&s=106&g=2&.sig=1wj1RLhwUvM7tb4JezoY4g>
> * Indonesia tour
>
> <http://groups.yahoo.com/gads;_ylc=X3oDMTJjazVxM2pqBF9TAzk3MzU5NzE0BF9wAzMEZ3JwSWQDODMzMjI2NQRncnBzcElkAzE3MDUxMTUzNjQEc2VjA3NsbW9kBHN0aW1lAzExODQzMjI5MDI-?t=ms&k=Indonesia+tour&w1=Indonesia+phone+card&w2=Programmer&w3=Indonesia+tour&w4=Indonesia+travel&w5=Indonesia+flower&c=5&s=106&g=2&.sig=q9IfhVzXkyX2GYoQxQiVSg>
> * Indonesia travel
>
> <http://groups.yahoo.com/gads;_ylc=X3oDMTJjdnRnYzJlBF9TAzk3MzU5NzE0BF9wAzQEZ3JwSWQDODMzMjI2NQRncnBzcElkAzE3MDUxMTUzNjQEc2VjA3NsbW9kBHN0aW1lAzExODQzMjI5MDI-?t=ms&k=Indonesia+travel&w1=Indonesia+phone+card&w2=Programmer&w3=Indonesia+tour&w4=Indonesia+travel&w5=Indonesia+flower&c=5&s=106&g=2&.sig=elL_KehPbwWYM_1X_jCtDQ>
> * Indonesia flower
>
> <http://groups.yahoo.com/gads;_ylc=X3oDMTJjMGFtN3UyBF9TAzk3MzU5NzE0BF9wAzUEZ3JwSWQDODMzMjI2NQRncnBzcElkAzE3MDUxMTUzNjQEc2VjA3NsbW9kBHN0aW1lAzExODQzMjI5MDI-?t=ms&k=Indonesia+flower&w1=Indonesia+phone+card&w2=Programmer&w3=Indonesia+tour&w4=Indonesia+travel&w5=Indonesia+flower&c=5&s=106&g=2&.sig=25DOeMQ7BOBffXq8xjVWxg>
>
> Y! Messenger
>
> All together now
> <http://us.ard.yahoo.com/SIG=12jadk3d8/M=493064.10729668.11333359.8674578/D=groups/S=1705115364:NC/Y=YAHOO/EXP=1184330102/A=3848585/R=0/SIG=12ceqob45/*http://us.rd.yahoo.com/evt=42403/*http://messenger.yahoo.com/feat_conf.php>
>
> Host a free online
>
> conference on IM.
>
> Need traffic?
>
> Drive customers
> <http://us.ard.yahoo.com/SIG=12j7vgm8j/M=493064.10729656.11333347.8674578/D=groups/S=1705115364:NC/Y=YAHOO/EXP=1184330102/A=3848644/R=0/SIG=131l83flq/*http://searchmarketing.yahoo.com/arp/srchv2.php?o=US2006&cmp=Yahoo&ctv=Groups5&s=Y&s2=&s3=&b=50>
>
> With search ads
>
> on Yahoo!
>
> Yahoo! Groups HD
>
> The official Samsung
> <http://us.ard.yahoo.com/SIG=12jhl6ulo/M=493064.10972170.11554072.8674578/D=groups/S=1705115364:NC/Y=YAHOO/EXP=1184330102/A=4706130/R=0/SIG=11f8fj6tf/*http://tech.groups.yahoo.com/group/samsunghd/>
>
> Y! Group for HDTVs
>
> and devices.
>
> .
>
>
