Visual Basic.NET - nombre del mes en ingles

 
Vista:
sin imagen de perfil

nombre del mes en ingles

Publicado por alexis (35 intervenciones) el 02/04/2013 17:38:03
buenos dias que tal,
consulta deseo obtener la abreviatura del nombre del mes en ingles
en el siguiente link encontre el siguiente ejemplo
http://msdn.microsoft.com/en-us/library/zxbsw165(v=vs.80).aspx

1
2
3
4
5
6
Dim thisMonth As Integer
Dim name As String
thisMonth = 4
' Set Abbreviate to True to return an abbreviated name.
name = MonthName(thisMonth, True)
' name now contains "Apr".


pero esto me devuelve la abreviatura en español ya que la pc actual esta configurada en español


lo que deseo es obtener la cultura actual de la computadora, luego cambiarsela a ingles, y despues colocarle la cultura con el idioma que tenia al principio

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
sin imagen de perfil

nombre del mes en ingles

Publicado por Jose Salazar (2 intervenciones) el 08/04/2013 16:09:14
Dim thisMonth As Integer
Dim name As String
' Set Abbreviate to True to return an abbreviated name.
select case thisMonth
case 1
name="Jan"
case 2
name="Feb"
case 3
name="Mar"
case 4
name="Apr"
case 5
name="May"
case 6
name="Jun"
case 7
name="Jul"
case 8
name="Aug"
case 9
name="Sep"
case 10
name="Oct"
case 11
name="Nov"
case 12
name="Dec"
end select

msgbox("Mes " & name)

Como quieras utilizarlo...
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