=YAZIYLA(..) MAKROSU HAKKINDA

[uzman26]

Merhaba arkadaşlar rakkamı tl ve kuruş olarak çeviren "YAZIYLA" makro 300,9 olan sonucu ücyüzlira seksendokuz kuruş olarak çeviriyor
oysaki ;ücyüzlira doksan kuruş olarak çevirmesi gerekiyor.Bunu nasıl düzeltebiliriz.?

[Hamurcu]

Merhaba,

Hangi kodu kullanıyorsunuz?

Yıllar önce yazdığım bir kod var şurada

Kuruş kısmı için;

Kod: Tümünü seç

Function YAZIYLA(ByVal Sayi as Double) as String
Dim OndalikKisim as Integer
Dim Lira, Kurus as String

    Lira = SAYIOKU( Int( Sayi ) ) + " Lira"
   
    Kurus = ""

    If Sayi <> Int( Sayi ) Then
        OndalikKisim = Int(Sayi*100 - Int(Sayi)*100)
        Kurus = " " + SAYIOKU(OndalikKisim) + " Kuruş"
    EndIf
    
    YAZIYLA = Lira + Kurus
End Function

Bu koddaki

Kod: Tümünü seç

OndalikKisim = Int(Sayi*100 - Int(Sayi)*100)

satırını aşağıdaki şekilde değiştirip dener misiniz.

Kod: Tümünü seç

OndalikKisim = Int(Sayi*1000 - Int(Sayi)*1000)

[Hamurcu]

İstersen aşağıda linkini verdiğim eklentiyi LibreOffice'e ekleyip kullanabilirsin.

Üstelik dünyadaki tüm dillerde ve parabirimlerinde geçerli.

NUMBERTEXT ve MONEYTEXT eklentisi şurada.

Kullanımı oldukça basit;

Kod: Tümünü seç

=NUMBERTEXT(A1;"tr-TR")

A1 hücresindeki sayıyı Türkçe yazıyla verir.

Aynı örneği aşağıdaki gibi yaparsak bu sefer sonuna Türk Lirası ibaresini ekler.

Küsürat okuması dahildir.

Kod: Tümünü seç

=MONEYTEXT(A1;;"tr-TR")

Hangisini tercih edersen onu kullanabilirsin.

[mustafa2003]

sayın hamurcu . yazdığınız kodu uzun zamandır kullanıyorum, şu anda base kullanmaya başladım. bu kodları libreoffice base raporlardaki fonksiyonlarda nasıl kullanabilirim.? teşekkürler..

search.php?author_id=1543&sr=posts yanlışlıkla bu başlık altına açmışım. kusuruma bakmayın..

[Hamurcu]

Merhaba,

Şuradaki dokümanın Macros In Base bölümünü okursanız sorunuzun tam cevabını bulabilirsiniz.

Temel olarak bir fark yok aslında.

Siz bir deneyin olmazsa haftasonu gibi ufak bir demo yaparız.

[mustafa2003]

teşekkürler işaret ettiğniz bölümü inceleyip birşeyler yapabilirmiyim deneyeceğim.