Prikazi cijelu temu
21.05.2015 17:33
21.05.2015 17:33
Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Mislim da može da se uradi posao uz malo gimnastike. U funkcijama GT i GN ukloniti deklaraciju za ulazni argument, tako program neće prijaviti grešku ako je polje prazno, takođe, dodati u funkciju uslov ako je IsNull ulazni argument onda je GT, odnosno GN ="".
Funkcija GN bi izgledala ovako:
Mislim da može da se uradi posao uz malo gimnastike. U funkcijama GT i GN ukloniti deklaraciju za ulazni argument, tako program neće prijaviti grešku ako je polje prazno, takođe, dodati u funkciju uslov ako je IsNull ulazni argument onda je GT, odnosno GN ="".
Funkcija GN bi izgledala ovako:
Citat:
Function GN(Value) As String
Dim Index As Long
Dim Final As String
If IsNull(Value) Then
GN = ""
Else
For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next
GN = Final
End If
End Function