Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Dia de la semana actual

Estas en el tema de Dia de la semana actual en el foro de Visual Basic clásico en Foros del Web. hola chicos! Estoy peleandome con el Time, Data, Weekday, etc. y no encuentro manera de conseguir saber que dia de la semana actual es, me ...
  #1 (permalink)  
Antiguo 23/03/2010, 02:02
Avatar de XYON126  
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años
Puntos: 0
Dia de la semana actual

hola chicos!

Estoy peleandome con el Time, Data, Weekday, etc. y no encuentro manera de conseguir saber que dia de la semana actual es, me refiero a Lunes, Martes, etc. con el Time consigo la hora actual del PC, con el Data la Fecha pero el Weekday y todo lo que he leido y buscado solo te da el dia de la semana según tú se lo pidas pero no el actual del reloj del PC.

Una ayudita por favor.


Un saludo

Última edición por XYON126; 23/03/2010 a las 04:28
  #2 (permalink)  
Antiguo 23/03/2010, 02:51
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 5 meses
Puntos: 53
Respuesta: Dia de la semana actual

Prueba a ver si te sirve esto

DiaSemana = Format(Date, "dddd")
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
  #3 (permalink)  
Antiguo 23/03/2010, 03:03
Avatar de XYON126  
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años
Puntos: 0
Respuesta: Dia de la semana actual

Cita:
Iniciado por erbuson Ver Mensaje
Prueba a ver si te sirve esto

DiaSemana = Format(Date, "dddd")
Hola erbunson!

¿He de activar algun complemento? ya que lo he probado ahora mismo y me da este error "error 13 en tiempo de ejecucion" tengo la variable Diasemana declarada cmo Date.

Un saludo
  #4 (permalink)  
Antiguo 23/03/2010, 03:27
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 5 meses
Puntos: 53
Respuesta: Dia de la semana actual

DiaSemana es un String, ya que esto de devuelve realmente Lunes, Martes, Miércoles, etc, no se si es realmente lo que pretendes.

En realidad es una pequeña 'chapuza' ya que lo que hace es utilizar la versatilidad de Format para devolver lo que deseamos, es como si quieres el nombre del mes y le indicas

NombreMes = Format(Date, "mmmm") o NombreMes = Format(Date, "mmm") si sólo quieres las tres primeras letras.
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
  #5 (permalink)  
Antiguo 23/03/2010, 03:39
Avatar de XYON126  
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años
Puntos: 0
Respuesta: Dia de la semana actual

Cita:
Iniciado por erbuson Ver Mensaje
DiaSemana es un String, ya que esto de devuelve realmente Lunes, Martes, Miércoles, etc, no se si es realmente lo que pretendes.

En realidad es una pequeña 'chapuza' ya que lo que hace es utilizar la versatilidad de Format para devolver lo que deseamos, es como si quieres el nombre del mes y le indicas

NombreMes = Format(Date, "mmmm") o NombreMes = Format(Date, "mmm") si sólo quieres las tres primeras letras.

Hola erbunson!

Si, es exactamente lo que necesitaba ,para obtener el número de semana ¿Existe algun comando o hay que calcularlo partiendo de el 1er jueves del año?

Un saludo
  #6 (permalink)  
Antiguo 23/03/2010, 04:14
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 5 meses
Puntos: 53
Respuesta: Dia de la semana actual

Puedes hechar mano del mismo 'truco'

DIM Semana as Integer
Semana = Format(Date, "ww")
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
  #7 (permalink)  
Antiguo 23/03/2010, 04:19
Avatar de XYON126  
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años
Puntos: 0
Respuesta: Dia de la semana actual

Cita:
Iniciado por erbuson Ver Mensaje
Puedes hechar mano del mismo 'truco'

DIM Semana as Integer
Semana = Format(Date, "ww")

Muchisimas gracias!!!!!!!!!!!!:
En un plis plas me has enseñado mas que yo lellendo una semana entera.

Ahora a pelearme con el resto que no es poco


Un saludo

Etiquetas: dia, semana
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:20.