28/12/2008, 23:12
furens
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 .
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
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