1. sayfa (Toplam 1 sayfa)

=YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 13 Tem 2020, 02:25
gönderen 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.?

Re: =YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 20 Tem 2020, 13:02
gönderen 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)

Re: =YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 23 Tem 2020, 13:07
gönderen 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.

Re: =YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 05 Eyl 2022, 12:09
gönderen 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..

Re: =YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 05 Eyl 2022, 22:24
gönderen 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.

Re: =YAZIYLA(..) MAKROSU HAKKINDA

Gönderilme zamanı: 06 Eyl 2022, 09:35
gönderen mustafa2003
teşekkürler işaret ettiğniz bölümü inceleyip birşeyler yapabilirmiyim deneyeceğim.