Biçimlendirme para birimi değerleri ASP / VBScript

Bir veritabanı alan veya değişken ya da saklanan bir değer görüntülenme şeklini değiştirmek için VBScript FormatCurrency işlevini kullanın.

İşte Microsoft Windows Script 5.6 Dokümantasyon bir özüdür:

Ziyaret Microsoft Windows Script 5.6 Dokümantasyon indirme sayfası.

FormatCurrency (İfade [, NumDigitsAfterDecimal [, IncludeLeadingDigit_
[, UseParensForNegativeNumbers [, GroupDigits]]]])

Ifade
Gerekli. İfade biçimlendirilmiş olması.

NumDigitsAfterDecimal
İsteğe bağlı. Kaç basamak ondalık sağında gösteren sayısal değer gösterilir. Varsayılan değer -1, hangi bilgisayarın bölgesel ayarlarının kullanıldığı anlamına gelmektedir.

IncludeLeadingDigit
İsteğe bağlı. Tristate sabit bir sıfır kesirli değerler için görüntülenen olup olmadığını gösterir. Değerler için Ayarlar bölümüne bakın.

UseParensForNegativeNumbers
İsteğe bağlı. Parantez içindeki negatif değerleri yerleştirmek için olmadığını gösterir Tristate sabiti. Değerler için Ayarlar bölümüne bakın.

GroupDigits
İsteğe bağlı. Numaraları kontrol panelinde belirtilen grup ayırıcı kullanarak gruplandırılmış olup olmadığını gösterir Tristate sabiti. Değerler için Ayarlar bölümüne bakın.

IncludeLeadingDigit, UseParensForNegativeNumbers ve GroupDigits argümanlar aşağıdaki ayarları vardır:

Açıklamalar
Bir ya da daha fazla isteğe bağlı argümanlar ihmal edildiğinde, ihmal bağımsız için değerler bilgisayarın bölgesel ayarları tarafından temin edilmektedir. Para birimi değeri göreli para birimi simgesi konumu, sistemin bölgesel ayarları tarafından belirlenir.

NOT: Eğer deneyin ve aşağıdaki hata iletisini alırsınız bir metin veya boş değer biçimlendirirseniz İfade, sayısal bir değer olmalıdır:

Microsoft VBScript çalışma zamanı (0x800A000D) Tip uyumsuzluğu: ‘FormatCurrency’

Sen örneklerde gösterildiği gibi, IsNumeric işlevini kullanarak, formatlamak için denemeden önce bir değişkenin içeriğinin sayısal olduğunu kontrol ederek bir hata alıyorum karşı korumak olabilir.

FormatCurrency örnek kod

<%
dblNumber = 123.456
curResult = FormatCurrency (dblNumber, 2)
%>

curResult 123.46 içerecektir

Para birimi simgesi değiştirme

Görüntülenen para birimi simgesini değiştirmek için VBScript FormatCurrency birlikte işlevini SetLocale kullanabilirsiniz.

SetLocale (LCID)

Örneğin bu tüm İngilizce Locale koyacaktır, Ondalık, Hex veya LCID (yerel ayar kimliği) kısaltması dize değeri kullanabilirsiniz – Birleşik Krallık:

SetLocale (“tr-tr”): (0x0809) SetLocale: SetLocale (2057)

Windows Komut Dosyası Dokümantasyonu, veya on-line tüm LocaleID adlı bir listesini bulabilirsiniz burada .

Örnek kod SetLocale

<%
dblPrice = 123.456
IsNumeric (dblPrice) Then
intLocale = (2057) SetLocale ‘İngilizce – Birleşik Krallık – TL
curPounds = FormatCurrency (dblPrice, 2) ‘curPounds içerir 123,46 £
Amerika Birleşik Devletleri – = (1033) SetLocale ‘İngilizce intLocale
curDollars = FormatCurrency (dblPrice, 2) ‘curDollars $ 123,46 içerir
= (1036) SetLocale intLocale ‘Fransızca – Fransa
curFrancs = FormatCurrency (dblPrice, 2) ‘curFrancs 123.46 F içermektedir
End If
%>

€ – Euro hakkında bir not

Bir anda FormatCurrency işleviyle birlikte Euro, Fransa, Almanya İspanya vs kullanan ulke LocaleID ayarlamak için SetLocale fonksiyonunu kullanarak Euro sonucu üreteceği düşünülebilir: 123,45 €

Ancak, bu ana sunucu, Windows XP veya Server 2003 ise Euro simgesi yalnızca görünecektir bu yöntemi kullanırken, her zaman böyle değildir. Sunucu, Windows 2000 ise ülkenin ön-Euro para birimi simgesi kullanılabilir. Bu nedenle bu yöntem tüm durumlarda itimat edilemez.

Ancak, örneğin, görüntüleme amaçlıdır, elle Euro sembolü ekleyerek bu geçici bir çözüm bulabilirsiniz:

<%
dblPrice = 123.456
IsNumeric (dblPrice) Then
intLocale = (2057) SetLocale ‘İngilizce – Birleşik Krallık – TL
curPounds = FormatCurrency (dblPrice, 2) ‘curPounds içerir 123,46 £
Amerika Birleşik Devletleri – = (1033) SetLocale ‘İngilizce intLocale
curDollars = FormatCurrency (dblPrice, 2) ‘curDollars $ 123,46 içerir
Amerika Birleşik Devletleri – = (1033) SetLocale ‘İngilizce intLocale
curEuros = FormatNumber (dblPrice, 2) & “€” ‘curEuros 123,46 içerir €
End If
%>

NOT: Hala kullanmış virgül ondalık noktasını belirtmek için kullanılır Fransa için ulusal tercih numaralarını görüntülemek için önce FormatNumber, fonksiyon SetLocale: 123,46 €