Probá con esto:
Public Function fncEvaluoCeroUno (v_cadena)
fncEvaluoCeroUno = "VALID"
For i = 1 To len(v_cadena)
codAsc = Asc(mid(v_cadena,i ,1))
If not(codAsc = 48 or codAsc = 49) Then
fncEvaluoCeroUno = "INVALID"
Exit For
End if
Next
End Function
El jueves, 12 de febrero de 2015, 11:22:01 (UTC-3), Prakash Sethupathi
escribió:
>
> Hi Friends,
> I need a program[it may be in any language] or explanation for below
> mentioned concepts.
>
> Concept:
> I have text column it contains only numeric value of any numbers.
> but when a user enter 0 or 1 the text column need to be valid. if else it
> not to be valid.
>
> Eg: 0 valid
> 1 valid
> 01 Valid
> 10 valid
>
> 20 invalid
> 02 invalid
>
> 100 valid
> 200 invalid
>
>
> Can any one give suggestion for me...
>
> Solution and results are more welcomed....
>
>
> --
> Regards,
> S Prakash
>
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
