#4
Public Function NoyaCevir(GelenMetin As String) As Long
Dim i, GelenNo
For i = 1 To Len(GelenMetin)
If IsNumeric(Mid(GelenMetin, i, 1)) Then
GelenNo = GelenNo & Mid(GelenMetin, i, 1)
End If
Next i
NoyaCevir = CLng(GelenNo)
End Function
Parcano_Seruz.rar
(Dosya Boyutu: 8,17 KB | İndirme Sayısı: 9)
| Bu Konudaki Yorumlar |
|
sorguda metin alanında sayıları süzmek - Yazar: benremix - 14/08/2009, 11:53
Cvp: sorguda metin alanında sayıları süzmek - Yazar: ozanakkaya - 15/08/2009, 00:25
Cvp: sorguda metin alanında sayıları süzmek - Yazar: benremix - 15/08/2009, 03:36
Cvp: sorguda metin alanında sayıları süzmek - Yazar: Seruz - 15/08/2009, 13:42
Cvp: sorguda metin alanında sayıları süzmek - Yazar: benremix - 15/08/2009, 15:07
Cvp: sorguda metin alanında sayıları süzmek - Yazar: kadirdursun - 15/08/2009, 16:42
Cvp: sorguda metin alanında sayıları süzmek - Yazar: benremix - 15/08/2009, 18:01
|
