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 Function
2. 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 Function
3. 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.