Visual Basic - Dia domingo

Life is soft - evento anual de software empresarial
 
Vista:

Dia domingo

Publicado por jorgehector (1 intervención) el 23/04/2009 21:05:00
Hola a todos
Hay alguna rutina para establecer si un dia determinado es Domingo ?
Desde ya muchas 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

RE:Dia domingo

Publicado por EMILIO (83 intervenciones) el 23/04/2009 22:44:56
Hola, yo sugeriria lo siguiente:

Dim dia As String

dia = Format(Now, "dddd") ' te da el dia de la semana.


If dia="Domingo" then

msg("Hoy es domingo")
' o lo que tengas que hacer....

end if
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

RE:Dia domingo

Publicado por P3L30N2009 (699 intervenciones) el 24/04/2009 09:32:39
Ese código está bien con algunos matices:

La configuración regional de la máquina tiene que ser español para que el formato devuelva "domingo", en americano p.e. devolvería "sunday".

El valor devuelto es un string en minúsculas (La comparación If dia="Domingo" no funcionaría, pero sí If dia="domingo").

También lo puedes hacer con la función DatePart, que devuelve un entero con el día de la semana (sea cual sea la configuración de la máquina):

Dim dia As Integer
dia = DatePart("w", Now)

If dia = 1 Then
.. es domingo (para los americanos el primer día de la semana es el domingo)
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

RE:Dia domingo

Publicado por EMILIO (83 intervenciones) el 24/04/2009 15:43:43
Tienes toda la razon!
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