01/02/2006, 11:01
|
| | | Fecha de Ingreso: enero-2006 Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 3 meses Puntos: 7 | |
| Dim MiCad1, MiCad2, MiComp
MiCad1 = "ABCD"
MiCad2 = "abcd"
MiComp = StrComp(MiCad1, MiCad2, 1) ' Devuelve 0.
MiComp = StrComp(MiCad1, MiCad2, 0) ' Devuelve -1.
MiComp = StrComp(MiCad2, MiCad1) ' Devuelve 1.
(1 hace una comparación de texto, 0 u omitido la hace binaria)
Un saludo |