21/09/2005, 03:29
|
| | | Fecha de Ingreso: junio-2004 Ubicación: Barcelona
Mensajes: 61
Antigüedad: 21 años, 4 meses Puntos: 1 | |
| Copia esta funcion y usala como el ejemplo:
Public Function CambiarComa(ByVal dblvalor As Double)
'************************************************* ***
'Usala asi:
'sqlcmd.CommandText = "INSERT INTO Prueba (Num) " _
' & "VALUES (" + CambiarComa(precision) + ")";
'
'************************************************* ***
Dim I As Long
dblvalor = CStr(dblvalor)
For I = 1 To Len(dblvalor)
If Mid(dblvalor, I, 1) = "," Then
CambiarComa = CambiarComa & "."
Else
CambiarComa = CambiarComa & Mid(dblvalor, I, 1)
End If
Next I
End Function
Un saludo desde Barna
Sk@keo |