Function SayiBul(ByVal GVeri As String) As Long
Dim GMetin As String
Dim GGenislik As Integer
Dim GSayi As Integer
GMetin = Right(Left(GVeri, InStr(1, GVeri, "%") - 1), 3) & Left(Mid(GVeri, InStr(1, GVeri, "%") + 1), 3)
GGenislik = Len(GMetin)
GSayi = 1
Do
If Mid(GMetin, GSayi, 1) <> " " And Not IsNumeric(Mid(GMetin, GSayi, 1)) Then
GMetin = Left(GMetin, GSayi - 1) + Mid(GMetin, GSayi + 1)
GSayi = GSayi - 1
End If
GSayi = GSayi + 1
Loop Until Val(GMetin) > 0
SayiBul = Val(GMetin)
End Function
Kodu ekle. Sorguya da,
sonuc: SayiBul([metninbulundugualanadi])
kodu ekle.
Konunuz "Visual Basic Örnek Uygulamaları" bölümüne açılmış. Sorunuz Visual Basic mi? Access mi??