acerca de la configuracion regional!!!!

04/09/2003 - 16:07 por DiGiTaL | Informe spam
que tal foreros...

Resulta qu etengo problemas al manipular valores con separadores de coma y
decimales cuando mi aplicacion es vista por personas que manejan otra
configuracion de (, y .)diferente a la mia...

que debo hacer????

como pudo estandarizar en mi ASP que los separadores de miles seran comas(,)
y decimales con puntos(.)

agradezco cualquier ayuda...gracias
 

Leer las respuestas

#1 Francisco Birrer
04/09/2003 - 12:35 | Informe spam
yo ocupo esta funcion

que esta hecha en visual, traspasala a vbscript

Public Function ToMacNumber(ByVal sValue As String) As Currency
Dim sInt As String
Dim sDec As String
Dim pos As Integer
Dim sNumber As String

If Trim$(sValue) = "" Then
ToMacNumber = 0
Exit Function
End If

'assume that the dot is the decimal separator
pos = InStrRev(sValue, ".", , vbTextCompare) 'find dot

If pos > 0 Then 'integer part
sInt = Left$(sValue, pos - 1)
Else
sInt = sValue
End If

For i = 1 To Len(sInt)
If Asc(Mid$(sInt, i, 1)) >= Asc("0") And Asc(Mid$(sInt, i, 1)) <Asc("9") Then
sNumber = sNumber & Mid$(sInt, i, 1)
End If
Next i

If pos > 0 Then
sDec = Mid$(sValue, pos + 1) 'decimal part
sDec = Left$(sDec, 4) & String(4 - Len(sDec), "0") 'upto four
decimal
End If

If sDec <> "" Then
ToMacNumber = CCur(CLng(sNumber) + CCur((CInt(sDec) / (10 ^ 4))))
'get final number
Else
ToMacNumber = CCur(CLng(sNumber)) 'get final number
End If

End Function



"DiGiTaL" escribió en el mensaje
news:
que tal foreros...

Resulta qu etengo problemas al manipular valores con separadores de coma y
decimales cuando mi aplicacion es vista por personas que manejan otra
configuracion de (, y .)diferente a la mia...

que debo hacer????

como pudo estandarizar en mi ASP que los separadores de miles seran


comas(,)
y decimales con puntos(.)

agradezco cualquier ayuda...gracias


Preguntas similares