Una de Fechas

16/06/2006 - 17:50 por Oscar | Informe spam
Hola a todos,

estoy intentando crear una cadena de texto que exprese una fecha con el
siguiente formato: "Jueves, 6 de abril, 14:44"

Lo que he intentado a sido esto:
FilaAuxiliar("DISULTACTUALIZACION") = d1.DayOfWeek.ToString & ", " &
d1.Day.ToString & " de " & d1.Month.ToString & ", " & d1.Hour.ToString &
":" & d1.Minute

con lo que obtengo: Friday, 16 de 6, 14:44"

Como podría obtener el día de la semana en español, asi como el mex en
texto?

y otra preguntita, supongo que sobre esto ya se habrá dicho mucho en el
foro, pero no he conseguido encontrar como buscar entre los mensajes del
foro en google... alguién me lo podría recordar?
Muchas gracias.

oscar.
 

Leer las respuestas

#1 SoftJaén
17/06/2006 - 20:57 | Informe spam
"Oscar" escribió:

estoy intentando crear una cadena de texto que exprese una fecha con el
siguiente formato: "Jueves, 6 de abril, 14:44"

Como podría obtener el día de la semana en español, asi como el mex en
texto?



Hola, Óscar:

Si no deseas utilizar los valores de formato de fecha normales, tendrás que
crearte uno específico:

' Fecha actual
Dim d1 As DateTime = Now

' Creamos un objeto CultureInfo para español de España.
'
Dim ci As New CultureInfo("es-ES")

' Obtenemos el correspondiente objeto DataTimeFormatInfo
'
Dim dtfi As DateTimeFormatInfo = ci.DateTimeFormat

' Obtenemos el nombre del día actual de la semana en español
'
Dim diaSemana As String = dtfi.GetDayName(DayOfWeek.Saturday)
diaSemana = diaSemana.Substring(0, 1).ToUpper & _
diaSemana.Substring(1)

' Obtenemos el nombre del mes en español
'
Dim mes As String = dtfi.GetMonthName(Now.Month)

' Construimos la cadena de fecha.
'
Dim fecha As String = diaSemana & _
", " & d1.Day.ToString & _
" de " & mes & _
", " & d1.Hour.ToString & _
":" & d1.Minute

MessageBox.Show(fecha)

como buscar entre los mensajes del foro en google



Para ver los mensajes de éste grupo de noticias, haz clic en el siguiente
enlace y lo incorporas a tus favoritos si lo crees conveniente, claro está:

http://groups.google.com/group/micr...mp;oe=UTF8

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Preguntas similares