Sayı Formatlama Fonksiyonları

NumFormat

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • Açıklama: Sayıyı formatlar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 1234567.89
    
    Formatli = Doc.NumFormat(Sayi, 2, 1)  ' 2 ondalık, binlik ayırıcı var
    Doc.MsgBox "Formatlı: " & Formatli
    ' Sonuç: "1.234.567,89"
End Sub

NumFormat0

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • Açıklama: Sayıyı formatlar (0 ise "0" döndürür)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 0
    Formatli = Doc.NumFormat0(Sayi, 2, 1)
    Doc.MsgBox "Formatlı: " & Formatli  ' Sonuç: "0"
End Sub

NumFormat_Gen

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • - zeroAsEmpty (Integer): Sıfırı boş döndür (0/1)
  • Açıklama: Genel sayı formatlama

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 1234.56
    Formatli = Doc.NumFormat_Gen(Sayi, 2, 1, 0)
    Doc.MsgBox "Formatlı: " & Formatli
End Sub

NumFormat_Nlz

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • Açıklama: Sayıyı formatlar (sondaki sıfırları kaldırır)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 1234.50
    Formatli = Doc.NumFormat_Nlz(Sayi, 2, 1)
    Doc.MsgBox "Formatlı: " & Formatli  ' Sonuç: "1.234,5" (sondaki sıfır kaldırıldı)
End Sub

NumFormat0_Nlz

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • Açıklama: Sayıyı formatlar (0 ise "0", sondaki sıfırları kaldırır)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 0
    Formatli = Doc.NumFormat0_Nlz(Sayi, 2, 1)
    Doc.MsgBox "Formatlı: " & Formatli  ' Sonuç: "0"
End Sub

NumFormat_Gen_Nlz

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • - thousands (Integer): Binlik ayırıcı (0/1)
  • - zeroAsEmpty (Integer): Sıfırı boş döndür (0/1)
  • Açıklama: Genel sayı formatlama (sondaki sıfırları kaldırır)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Formatli
    Sayi = 1234.50
    Formatli = Doc.NumFormat_Gen_Nlz(Sayi, 2, 1, 0)
    Doc.MsgBox "Formatlı: " & Formatli
End Sub

ChangeNumberStyleCD

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • Açıklama: Sayı stilini CD formatına çevirir

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, CDFormat
    Sayi = 1234.56
    CDFormat = Doc.ChangeNumberStyleCD(Sayi)
    Doc.MsgBox "CD Format: " & CDFormat
End Sub

NumToText

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • Açıklama: Sayıyı metne çevirir

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Metin
    Sayi = 1234.56
    Metin = Doc.NumToText(Sayi)
    Doc.MsgBox "Yazıyla: " & Metin
End Sub

NumToText_TL

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • Açıklama: Sayıyı Türk Lirası metnine çevirir

Örnek Kullanım:

Sub Makro1()
    Dim Tutar, Metin
    Tutar = 1234.56
    Metin = Doc.NumToText_TL(Tutar)
    Doc.MsgBox "Tutar: " & Tutar & Chr(13) & "Yazıyla: " & Metin
    ' Sonuç: "Bin İki Yüz Otuz Dört Türk Lirası Elli Altı Kuruş"
End Sub

NumToText2

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - language (Short): Dil kodu
  • Açıklama: Sayıyı metne çevirir (dil seçeneği ile)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Metin
    Sayi = 1234.56
    Metin = Doc.NumToText2(Sayi, 1)  ' Dil kodu 1
    Doc.MsgBox "Yazıyla: " & Metin
End Sub

NumToText3

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Variant): Sayı
  • - language (Short): Dil kodu
  • - currency (String): Para birimi
  • Açıklama: Sayıyı metne çevirir (dil ve para birimi ile)

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Metin
    Sayi = 1234.56
    Metin = Doc.NumToText3(Sayi, 1, "TL")
    Doc.MsgBox "Yazıyla: " & Metin
End Sub

NumToC

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Sayıyı C formatına çevirir

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, CFormat
    Sayi = 1234.56
    CFormat = Doc.NumToC(Sayi)
    Doc.MsgBox "C Format: " & CFormat
End Sub

---