La Web del Programador: Comunidad de Programadores
 
    Pregunta:  43736 - DETECTAR SI EL DECIMAL DE MI EQUIPO ES PUNTO O COMA DESDE VB
Autor:  Yamid Rojas
Lo que sucede es que para mi programa trabajo separando los decimales con punto, y cuando creo el ejecutable, para poder correrlo en otro equipo necesito saber si este esta configurado

en el panel de control -> configuracion regional y de idioma -> Opcines Regionales -> Personalizar -> Simbolo decimal

como punto para que pueda corer el programa, si esta con coma debo enviar un mensaje y el programa no debe arrancar hasta que lo cambie a punto, esta verificación se debe hacer al iniciar el ejecutable del programa hecho en Visual Basic 6.

De antemano gracias por la ayuda que me puedan brindar, es muy urgente, ya que es para mi proyecto de Grado

  Respuesta:  Alfonso Salazar
Puedes utilizar esta función:

Public Function Puntodecimal() As String
Dim S As String
S = Format$(1.5, "0.0")
Puntodecimal = Mid$(S, 2, 1)
End Function

La función devolverá "," o "." según la configuración del sistema
puedes usarla, por ejemplo:

if Puntodecimal = "," then
msgbox "Cambiar punto decimal a "".""
end
end if