Skip to main content

AccessTr.neT


Ondalıklı Sayıyı Yazıya Çevirme

Ondalıklı Sayıyı Yazıya Çevirme

Çözüldü #1
Teşekkürler oldu. 
https://accesstr.net/konu-giris-maskesi-...#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.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
Çözüldü #2
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.
Cevapla
#3
öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Visual Basic Code
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
Visual Basic Code
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar
Cevapla
#4
(13/12/2019 16:21)berduş Adlı Kullanıcıdan Alıntı: öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Visual Basic Code
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
Visual Basic Code
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar


çok teşekkürler. oldu şimdi
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#5
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
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#6
Visual Basic Code
Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
kodunu aşağıdakiyle değiştirip deneyin
Visual Basic Code
Sayiyi_Metne_CevirKr = mtnTL & " TL " & IIf(CLng(TlKr(1)) <> 0, mtnKr & " Kuruş ", "")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da