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.



Paylaşım Makrosu