RE: [Programmer-VB] format nilai uang (sangat urgen)

Wed, 01 Mar 2006 00:48:01 -0800

pakai fungsi formatnumber, trus replace aja...

 

pertama cari pemisah ribuan (versi client)

 

Public Function GetComaChar() As String

    'Get Number Format on Client Computer

    'Return value is "," or "."

    GetComaChar = Mid(StrReverse(FormatNumber(1406, 2)), 3, 1)

End Function

 

pemisah = GetComaChar

 

kemudian format angka nya..

 

strAngka = formatNumber(angka,0)

 

trus replace deh pemisah ribuannya..

 

strAngka = replace(strAngka,pemisah,".")

 

 

kalau ada pecahannya, silakan explore sendiri yah... :)

 

semoga bermanfaat

 

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Eko
Sent: 01 March 2006 15:39
To: [email protected]
Subject: Re: [Programmer-VB] format nilai uang (sangat urgen)

 

klo bisa jgn ngerubah regional setting

----- Original Message -----

Sent: Wednesday, March 01, 2006 3:31 PM

Subject: Re: [Programmer-VB] format nilai uang (sangat urgen)

 

bukannya ini tergantung regional settings komputernya mas? coba rubah di regional settingsnya, ntar yg di vb ikutan berubah.

 

best regards

[wwn]
 

On 3/1/06, Eko <[EMAIL PROTECTED]> wrote:

gimana caranya format nilai

misal dari 2500000  menjadi 2.500.000

aku cm bisa pake format(nilai,"#,##0")

kalo pake titik gimana caranya

 



Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke