AccessTr.neT
Ondalıklı Sayıyı Yazıya Çevirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ondalıklı Sayıyı Yazıya Çevirme (/konu-ondalikli-sayiyi-yaziya-cevirme.html)

Sayfalar: 1 2


Ondalıklı Sayıyı Yazıya Çevirme - derzulya - 13/12/2019

Teşekkürler oldu. 
https://accesstr.net/konu-giris-maskesi-bastaki-sifir-degerini-almiyor.html?pid=161055#pid161055 konusundaki ek için
Tutardaki kuruşları wordde yazıyla parantez içinde yazarken kuruşları yazmıyor. Bu konu ile ilgilide yeni başlık açmalı mıyım ? yoksa buradan devam edebilir miyiz.


Cvp: Giriş Maskesi Baştaki Sıfır Değerini Almıyor - berduş - 13/12/2019

fonksiyonun kendinden kaynaklanan bir şey fonksiyonun düzenlenmesi gerek bence
yanlış mı anladım?
eğer fonksiyonun düzeltilmesini istiyorsanız yeni konu açın yoksa buradan devam edin.


Cvp: Ondalıklı Sayıyı Yazıya Çevirme - berduş - 13/12/2019

öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Function Sayiyi_Metne_CevirKr(Sayi As Double)
Dim mtnTL, mtnKr, xSayi As String
Dim TlKr() As String
xSayi = CStr(Format(Sayi, "#,##0.00"))

If InStr(xSayi, ",") > 0 Then
    TlKr = Split(xSayi, ",")
    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))
    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))
    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
Else
    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)
End If
End Function
sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar


Cvp: Ondalıklı Sayıyı Yazıya Çevirme - derzulya - 13/12/2019

(13/12/2019, 16:21)berduş yazdı: öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Function Sayiyi_Metne_CevirKr(Sayi As Double)
Dim mtnTL, mtnKr, xSayi As String
Dim TlKr() As String
xSayi = CStr(Format(Sayi, "#,##0.00"))

If InStr(xSayi, ",") > 0 Then
    TlKr = Split(xSayi, ",")
    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))
    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))
    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
Else
    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)
End If
End Function
sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar


çok teşekkürler. oldu şimdi


Cvp: Ondalıklı Sayıyı Yazıya Çevirme - derzulya - 13/12/2019

sadece tek olay kuruş hanesi sıfır oluncada sıfır kuruş yazıyor. 510,00 TL için beşyüzon tl sıfır kuruş gibi. Ama olsun bu şekilde de işimi görür


Cvp: Ondalıklı Sayıyı Yazıya Çevirme - berduş - 13/12/2019

Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
kodunu aşağıdakiyle değiştirip deneyin
Sayiyi_Metne_CevirKr = mtnTL & " TL " & IIf(CLng(TlKr(1)) <> 0, mtnKr & " Kuruş ", "")