RE: [Programmer-VB] Mohon petunjuk tentang mata Uang

[Ferrr_xls]

Kalu  sy sih coba di bikin fungsi   ‘Sintaks for call function in form toMoney(toNumber(txtHeader(1).Text)   ‘put it into Modul  'Function that will return a currenct format Public Function toMoney(ByVal srcCurr As String) As String    toMoney = Format$(srcCurr, "#,##0.00") End Function   'Convert string to number 'I create this istead of val() co'z val return incorrect value 'ex. Try to see the output of val("3,800") 'It did not support characters like , and etc. Public Function toNumber(ByVal srcCurrency As String, Optional RetZeroIfNegative As Boolean) As Double     If srcCurrency = "" Then         toNumber = 0     Else         Dim retValue As Double         If InStr(1, srcCurrency, ",") > 0 Then             retValue = Val(Replace(srcCurrency, ",", "", , , vbTextCompare))         Else             retValue = Val(srcCurrency)         End If         If RetZeroIfNegative = True Then             If retValue < 1 Then retValue = 0         End If         toNumber = retValue         retValue = 0     End If End Function   Selamat Mencoba ----- Original Message ----- From: Andri Rinaldi To: Programmer-VB@yahoogroups.com Sent: Monday, July 17, 2006 11:22 AM Subject: [Programmer-VB] Mohon petunjuk tentang mata Uang   Dear all mohon pencerahannya .. Aku ingin menampilkan number dalam bentuk format uang misal : 200000 ---> 200.000 1000000 ---> 1.000.000 gimana ya, apa aja yang mesti di lakukan, soalnya kalo di text1.dataformat nya aku rubah jadi currency itu juga tidak berpengaruh terima kasih -ANDRI- __._,_.___ 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  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. __,_._,___