NumToText Fonksiyonu

Tanım

Verilen verilen nümerik bilgiyi, yazıya çevirir. Ondalıklı sayıların çevriminde, ondalık işareti olarak araya yüzde işareti (%) ilave edilir. Ondalık kısmın ilk iki hanesi dikkate alınır. Yazıya çevrilen rakamların arasında boşluk bırakılmaz.

Kullanım Şekli

Değişken = Document.NumToText(NümerikBilgi)

Ana Nesne

Document (Doc) nesnesinin ele manıdır. Bir doküman nesnesi ile kullanılmak zorundadır.

Parametreler

Parametre	Açıklama
NümerikBilgi	Yazıya çevrilecek sayısal veya metinsel olabilen nümerik bilgi. Metinsel bilgiden kasıt, text formatındaki nümerik karakterlerden oluşan bilgidir. Fonksiyon için; 1200.30, “1200.30” ve “1,200.30” aynı bilgidir.

Geri Dönen Değerler

Verilen sayının yazıya dönüştürülmüş halini, karakter dizini şeklinde geri döner. Bir değişkene atanarak kullanılmalıdır.

Hatırlatmalar

•Metinsel bilgilerde, tırnak ve binlik ayıraç olan virgüller dikkate alınmaz.

•Fonksiyon ondalıklı sayılarda, ondalık kısmın ilk iki hanesini herhangi bir yuvarlama yapmadan dikkate alır. Yuvarlama işlemine ihtiyacınız var ise, fonksiyona verilecek sayı önceden yuvarlanmalıdır.

•Sayı olarak 0 (Sıfır) değerinde, boş bilgi geri dönülür.

Örnek

Sub Makro1()

Sayi = 23845.587

Mesaj = "NumToText(" & Sayi & ") fonksiyonun sonucu aşağıdadır."

Mesaj = Mesaj & chr(13) & Doc.NumToText(Sayi)

Mesaj = Mesaj & chr(13) & "NumToText(""23845.587"") fonksiyonun sonucu aşağıdadır."

Mesaj = Mesaj & chr(13) & Doc.NumToText("23845.587")

Mesaj = Mesaj & chr(13) & "NumToText(""23,845.587"") fonksiyonun sonucu aşağıdadır."

Mesaj = Mesaj & chr(13) & Doc.NumToText("23,845.587")

Doc.MsgBox Mesaj

End Sub

Üç farklı şekilde girilen nümerik bilginin, yazı ile gösterimlerinin aynı olduğu aşağıdaki mesaj kutusunda gösterilmiştir. Ondalık kısımda 3 hanelik bilgi verilmesine rağmen, sadece ilk hane herhangi bir yuvarlamaya tabi tutulmadan dikkate alınmıştır.

Birleşik Yazılım