Function YN(ES As String) As Double
For I = 1 To 30
If Mid(ES, I, 1) < "0" Then GoTo 100
If Mid(ES, I, 1) > "9" Then GoTo 100
Next I
100
If I < 2 Then YN = 0: GoTo 200
YN = Left(ES, I - 1)
200
End Function
-11 gibi başlayan kayıtlar olduğu için modülü aşağıdaki gibi yaparsanız sorun kalmayacaktır.
Please return your positive or negative ...