+- 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ığı: Ytl ve Ykr Ayırmak (/konu-ytl-ve-ykr-ayirmak.html)
Cvp: Ytl ve Ykr Ayırmak - furens - 28/12/2008
Malesef dostum tşk.bir tabloda birden fazla 8 adet rakam var ve bu rakamların hepsini ayırmak zorundayım.hepsi için sorgu oluşturup yapmam lazım ama bildiğiniz gibi modülde sadece = tamam .
Cvp: Ytl ve Ykr Ayırmak - alpeki99 - 28/12/2008
Benim eklediğim dosyayı indirmiş miydiniz? Bakıyorum şimdi yok burada
Cvp: Ytl ve Ykr Ayırmak - Seruz - 29/12/2008
Konuya geç girdim ama anladığım kadarıyla böyle bir şey istiyorsunuz.
3 farklı seçenek kullanabilirsiniz bunun için.
-------------------------------------------
1. Seçenek
İstediğiniz bir Tutar alanının;
YTL değerini almak için =YTL_YKR_DEGERI([Tutar];"YTL")
YKR değerini almak için =YTL_YKR_DEGERI([Tutar];"YKR")
şeklinde kullanacaksınız.
Kod:
Public Function YTL_YKR_DEGERI(TUTAR As Currency, ISTENILENTIP As String) As Currency
Dim YTL As Currency, YKR As Currency
YTL = Fix(TUTAR)
YKR = (TUTAR - YTL) * 100
If ISTENILENTIP = "YTL" Then
YTL_YKR_DEGERI = YTL
ElseIf ISTENILENTIP = "YKR" Then
YTL_YKR_DEGERI = YKR
Else: YTL_YKR_DEGERI = 0
End If
End Function2. Seçenek
İstediğiniz bir Tutar alanının;
YTL değerini almak için =YTL_DEGERI([Tutar])
YKR değerini almak için =YKR_DEGERI([Tutar])
şeklinde kullanacaksınız.
Kod:
Public Function YTL_DEGERI(TUTAR As Currency) As Currency
YTL_DEGERI = Fix(TUTAR)
End Function
Public Function YKR_DEGERI(TUTAR As Currency) As Currency
Dim YTL As Currency
YKR_DEGERI = (TUTAR - Fix(TUTAR)) * 100
End Function3. Seçenek
Fonksiyona gerek olmayan en basit yöntem.
YTL değerini almak için =Fix([TUTAR])
YKR değerini almak için =([TUTAR]-Fix([TUTAR]))*100
Tüm Seçenekler ekteki Örnek'te bulunmaktadır.
Cvp: Ytl ve Ykr Ayırmak - Seruz - 29/12/2008
Pardon, hızlı hızlı bakarken sizin örneğiniz olduğunu görmemişim.
Örneğiniz üzerinde en basit çözümü gönderiyorum.
Not: Tablonuzda Miktarı alanını text yapmıştınız. Düzelttim.
Cvp: Ytl ve Ykr Ayırmak - furens - 30/12/2008
Kardeşim sağol olay bu Allah razı olsun,bilgini arttırsın 3.formül işleyişi virgülden sonraki değeri ayrı vigülden önceki değeri ayrı alıyor öylemi yani gele bir fomülmü
Cvp: Ytl ve Ykr Ayırmak - Seruz - 30/12/2008
Fix fonksiyonu access'in genel bir fonksiyonudur.
Noktadan sonrasını yok ederek, sayıyı tamsayı yapar.
Mesela; Tutar=24.75 ise Fix(Tutar)=24 sonucu verir.
Böylece Tutar dan Fix(Tutar) 'ı çıkardığınızda noktadan sonrası kalır.
Tutar - Fix(Tutar) = 0.75
Bu sonucuda 100 ile çarparak kaç kuruş olduğunu buluyoruz.
([Tutar]-Fix([Tutar]))*100 = 75