metni sayıya ceviran fonksiyonu maaş programına ekliyorum
ama
"can't find project or library"
hatası veriyor
fonksiyonu uygun sekilde ekledim
acil........................
----------------------------------
Function yazi$(sayi)
Dim virgulonce As String
Dim virgulsonra As String
Dim sayi1 As Currency
Dim sayi2 As Integer
sayi1 = Fix(sayi)
sayi2 = Val(Right(Str(sayi * 100), 2))
virgulonce = yaziyla(sayi1, False) + " YTL"
If sayi2 = 0 Then
virgulsonra = ""
Else
virgulsonra = yaziyla(sayi2, True) + " Yeni Kuruş"
End If
yazi = virgulonce + " " + virgulsonra
End Function
-------------------------------------------------
sayi2 = Val(Right(Str(sayi * 100), 2))
bu satırda ki str sararıyor ve calısmıyor.
tşk.
gosgarbaba@hotmail.com
ama
"can't find project or library"
hatası veriyor
fonksiyonu uygun sekilde ekledim
acil........................
----------------------------------
Function yazi$(sayi)
Dim virgulonce As String
Dim virgulsonra As String
Dim sayi1 As Currency
Dim sayi2 As Integer
sayi1 = Fix(sayi)
sayi2 = Val(Right(Str(sayi * 100), 2))
virgulonce = yaziyla(sayi1, False) + " YTL"
If sayi2 = 0 Then
virgulsonra = ""
Else
virgulsonra = yaziyla(sayi2, True) + " Yeni Kuruş"
End If
yazi = virgulonce + " " + virgulsonra
End Function
-------------------------------------------------
sayi2 = Val(Right(Str(sayi * 100), 2))
bu satırda ki str sararıyor ve calısmıyor.
tşk.
gosgarbaba@hotmail.com