Yoa
05 de Abril del 2003

Hola listeros, mi pregunta es como puedo hacer para cambiar la coma decimal por un punto. Ej:
123456,78 por este 123456.78
Gracias...

angeles
05 de Abril del 2003

Dim pos As Integer
pos=InStr(cad,",")
If pos<>0 Then
cad=Mid(cad,pos-1) & "." & Mid(cad,pos+1)
End If

Eduardo
05 de Abril del 2003

Incorrecto!, el ejemplo anterior da error, asi debe ser escrito:

Dim Pos As Integer, Cad As String
Pos = InStr(Cad, ",")
If Pos <> 0 Then
Cad = Left(Cad, Pos - 1) & "." & Right(Cad, Len(Cad) - Pos)
End If

angeles
05 de Abril del 2003

Cierto, hay un error, la forma correcta es:
Dim pos As Integer
Dim cad As String
pos=InStr(Cad, ",")
If pos <> 0 Then
cad = Mid(cad,1,pos-1) & "." & Mid(cad, pos+1)
End If