Visual Basic - Como Obtengo el día de la semana(Lunes, Martes...)

Life is soft - evento anual de software empresarial
 
Vista:

Como Obtengo el día de la semana(Lunes, Martes...)

Publicado por DAHECA (2 intervenciones) el 01/11/2002 05:27:46
Saludos a la Comunidad!!

Estoy manejando el Control Calendar que esta en los componentes de Visual Basic.
Cuando quiero saber la fecha actual simplemente la almaceno en una variable tipo date. Pero, como hago para saber, en base a esa fecha, el día que corresponde de la semana. Por ejemplo si yo capturo la fecha de hoy (31/10/2002) 31 de Octubre de 2002, como hago para saber que es "Jueves". No se cual es la función que devuelve ese valor.

DA.HE.CA
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

RE:Como Obtengo el día de la semana(Lunes, Martes.

Publicado por Rodolfo del Peru (454 intervenciones) el 01/11/2002 17:05:21
La funcion Weekday recibe de parametro una fecha y devuelve el numero correspondiente del dia de la semana.

1
2
3
4
5
6
7
8
9
10
11
12
Dim x as Integer
Dim Dia(1 to 7) as String
 
Dia(1) = "Domingo"
Dia(2) = "Lunes"
Dia(3) = "Martes"
Dia(4) = "Miercoles"
Dia(5) = "Jueves"
Dia(6) = "Viernes"
Dia(7) = "Sabado"
 
x = Weekday(Date)

Donde Si x=1 es Domingo, 2 es Lunes... etc.
por lo tanto el dia de la semana en letras es Dia(x).

Saludos desde Lima
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

Una forma muy sencilla

Publicado por Jaime Enriquez (37 intervenciones) el 01/11/2002 18:39:41
LA FORMA ES SENCILLA,
vFecha = format(now, "dddd")
ESTO HACE QUE SE CARGUE A LA VARIABLE vFecha el día de la semana de forma descriptiva (Lunes, Martes, Miércoles, etc) en base a la fecha que le des, que en este caso es la fecha actual.
FACIL NO?... Una observación, la descripción te la dará acorde al lenguaje de tu sistema operativo, si esta en español te la dará en español.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Como Obtengo el día de la semana(Lunes, Martes...)

Publicado por Federico (2 intervenciones) el 31/08/2018 19:13:24
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub T_CalMes_DateChanged(sender As Object, e As DateRangeEventArgs) Handles T_CalendarioMes.DateChanged
    'en base a un control MonthCalendar, esta es su funcion DateChanged y obtenes en cada textbox el dia clikeado, el orden de dia en la semana
    'el primer dia de la semana y el ultimo
 
    Dim XOrdenEnSemana As Integer
    Dim XPrimerDiaSemana As Date
    Dim XUltimoDiaSemana As Date
    Dim XDia As Date
 
    TextBox1.Text = T_CalendarioMes.SelectionRange.Start.ToShortDateString()
    XDia = CDate(TextBox1.Text)
 
    XOrdenEnSemana = XDia.DayOfWeek
    TextBox2.Text = XOrdenEnSemana
 
    If XOrdenEnSemana = 0 Then
        '0 es domingo, le resto 7 directamente
        XPrimerDiaSemana = XDia.AddDays(-6)
    Else
        XPrimerDiaSemana = XDia.AddDays(-XOrdenEnSemana)
        XPrimerDiaSemana = XPrimerDiaSemana.AddDays(1)
    End If
    XUltimoDiaSemana = XPrimerDiaSemana.AddDays(6)
    TextBox3.Text = Format(XPrimerDiaSemana, "dddd dd MMMM yyyy ")
    TextBox4.Text = Format(XUltimoDiaSemana, "dddd dd MMMM yyyy ")
End Sub
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
sin imagen de perfil
Val: 237
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como Obtengo el día de la semana(Lunes, Martes...)

Publicado por Cesar (118 intervenciones) el 31/08/2018 19:17:42
No revivan mensajes viejos.

Ese post tiene 16 años.
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