Visual Basic - llamar function dentro de un private sub

Life is soft - evento anual de software empresarial
   
Vista:

llamar function dentro de un private sub

Publicado por nfalcondelgado (13 intervenciones) el 24/02/2010 13:02:49
Buenos dias, como podria llamar un function desde dentro de un private sub? la function seria:

Function recortar(lotenew As String) As String

Dim posi As Double

posi = 0

posi = InStr(1, lotenew, "@00")

If posi > 0 Then lotenew = Mid(lotenew, 1, posi - 1)

End Function

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:llamar function dentro de un private sub

Publicado por Antoni Masana (79 intervenciones) el 24/02/2010 13:35:50
Le tienes que asignar el valor resultante de la funcion al nombre de la función

Function recortar(lotenew As String) As String
Dim posi As Double

posi = 0
posi = InStr(1, lotenew, "@00")
If posi > 0 Then recortar = Mid(lotenew, 1, posi - 1)
End Function

Private Sub Command1_Click()
Label1.Caption = recortar(Text1.Text)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar