Matematik Fonksiyonları

Div

  • Dönüş Tipi: Double
  • Parametreler:
  • - dividend (Double): Bölünen
  • - divisor (Double): Bölen
  • Açıklama: Bölme işlemi yapar

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.Div(100, 3)
    Doc.MsgBox "100 / 3 = " & Sonuc
End Sub

Round

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • - decimals (Integer): Ondalık basamak sayısı
  • Açıklama: Sayıyı yuvarlar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Yuvarlanmis
    Sayi = 123.456789
    Yuvarlanmis = Doc.Round(Sayi, 2)  ' 2 ondalık basamak
    Doc.MsgBox "Orijinal: " & Sayi & Chr(13) & "Yuvarlanmış: " & Yuvarlanmis
    ' Sonuç: 123.46
End Sub

DRound

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Sayıyı varsayılan ondalık basamakla yuvarlar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Yuvarlanmis
    Sayi = 123.456789
    Yuvarlanmis = Doc.DRound(Sayi)
    Doc.MsgBox "Yuvarlanmış: " & Yuvarlanmis
End Sub

LPBRound

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: LPB (Lira Para Birimi) yuvarlaması yapar

Örnek Kullanım:

Sub Makro1()
    Dim Tutar, Yuvarlanmis
    Tutar = 123.456
    Yuvarlanmis = Doc.LPBRound(Tutar)
    Doc.MsgBox "LPB Yuvarlanmış: " & Yuvarlanmis
End Sub

LPBMin

  • Dönüş Tipi: Double
  • Parametreler: Yok
  • Açıklama: LPB minimum değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim MinDeger
    MinDeger = Doc.LPBMin()
    Doc.MsgBox "LPB Minimum Değer: " & MinDeger
End Sub

CHTRound

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: CHT (Cari Hesap Tutarı) yuvarlaması yapar

Örnek Kullanım:

Sub Makro1()
    Dim Tutar, Yuvarlanmis
    Tutar = 123.456
    Yuvarlanmis = Doc.CHTRound(Tutar)
    Doc.MsgBox "CHT Yuvarlanmış: " & Yuvarlanmis
End Sub

CHTMin

  • Dönüş Tipi: Double
  • Parametreler: Yok
  • Açıklama: CHT minimum değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim MinDeger
    MinDeger = Doc.CHTMin()
    Doc.MsgBox "CHT Minimum Değer: " & MinDeger
End Sub

Floor

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Sayıyı aşağı yuvarlar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, AsagiYuvarlanmis
    Sayi = 123.7
    AsagiYuvarlanmis = Doc.Floor(Sayi)
    Doc.MsgBox "Floor: " & AsagiYuvarlanmis  ' Sonuç: 123
End Sub

Ceil

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Sayıyı yukarı yuvarlar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, YukariYuvarlanmis
    Sayi = 123.3
    YukariYuvarlanmis = Doc.Ceil(Sayi)
    Doc.MsgBox "Ceil: " & YukariYuvarlanmis  ' Sonuç: 124
End Sub

FMod

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • - modulus (Double): Modül
  • Açıklama: Kalan işlemi yapar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Modul, Kalan
    Sayi = 17
    Modul = 5
    Kalan = Doc.FMod(Sayi, Modul)
    Doc.MsgBox "17 mod 5 = " & Kalan  ' Sonuç: 2
End Sub

Sqrt

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Karekök hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, Karekok
    Sayi = 16
    Karekok = Doc.Sqrt(Sayi)
    Doc.MsgBox "Karekök: " & Karekok  ' Sonuç: 4
End Sub

ChangeSign

  • Dönüş Tipi: Double
  • Parametreler:
  • - number (Variant): Sayı
  • Açıklama: İşareti değiştirir

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, IsaretDegistirilmis
    Sayi = 100
    IsaretDegistirilmis = Doc.ChangeSign(Sayi)
    Doc.MsgBox "İşaret Değiştirilmiş: " & IsaretDegistirilmis  ' Sonuç: -100
End Sub

SigDig

  • Dönüş Tipi: Integer
  • Parametreler:
  • - number (Double): Sayı
  • Açıklama: Anlamlı basamak sayısını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Sayi, AnlamliBasamak
    Sayi = 123.456
    AnlamliBasamak = Doc.SigDig(Sayi)
    Doc.MsgBox "Anlamlı Basamak: " & AnlamliBasamak
End Sub

IsAlmostEqual

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - value1 (Variant): İlk değer
  • - value2 (Variant): İkinci değer
  • Açıklama: İki değerin neredeyse eşit olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Deger1, Deger2
    Deger1 = 0.1 + 0.2
    Deger2 = 0.3
    
    If Doc.IsAlmostEqual(Deger1, Deger2) Then
        Doc.MsgBox "Değerler neredeyse eşit"
    Else
        Doc.MsgBox "Değerler farklı"
    End If
End Sub

IsAlmostZero

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - value (Variant): Değer
  • Açıklama: Değerin neredeyse sıfır olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Deger
    Deger = 0.0000001
    
    If Doc.IsAlmostZero(Deger) Then
        Doc.MsgBox "Değer neredeyse sıfır"
    Else
        Doc.MsgBox "Değer sıfırdan farklı"
    End If
End Sub

---