Programación General > Visual Basic 6.0 e inferiores

 Nombres De Dias De La Semana

(1/2) > >>

Kurt:
Saludos a todos:

Gracias a ustedes por hace posible este foro:

Utilizo dos rangos de fechas INICIAL y FINAL escritas por el usuario p.e.

INICIAL = 20/06/2005
FINAL = 24/06/2005
con la funcion DATEDIFF obtengo los dias en ese rango es decir 4 dias
Esta es mi pregunta:
Como puedo hacer( porque no tengo la menor idea) para obterner de esa diferencia los nombres de los dias de la semana de ese rango es decir:

  Mar  Mier  Jue   Vier
     21     22     23     24

Nota :Los nombres no necesariamente deben ser abreviados

Muchas gracias a todos...

DiabloRojo:
Qué tal Kurt?
Por qué no pruebas con la función WeekDay para determinar qué día corresponde a la fecha inicial y luego de acuerdo al rango de días resultante asignar los días sucesivos?. Revisa en la ayuda.

DiabloRojo

Kurt:

--- Cita de: "DiabloRojo" --- Qué tal Kurt?
Por qué no pruebas con la función WeekDay para determinar qué día corresponde a la fecha inicial y luego de acuerdo al rango de días resultante asignar los días sucesivos?. Revisa en la ayuda.

DiabloRojo
--- Fin de la cita ---
Estimado DiabloRojo:

Primero que nada muchas gracias...Disculparas mi ignorancia o estupides pero no se como obtener los nombres de los dias...
la funcion Weekday me devuelve el dia de la semana en numerico p.e.  1 = Lunes y la función WeekDayName me devuelve el nombre de ese numero p.e  Lunes = 1, hasta ahi todo bien pero lo demás no sé como hacerlo para obtener del rango de fechas los dias...

Saludos y muchas gracias

RadicalEd:

--- Código: Text ---Private Sub Form_Load()Dim inicial, final, x, h, minicial = #6/20/2005#final = #6/24/2005#h = Weekday(inicial)x = DateDiff("d", inicial, final)MsgBox xSelect Case h        Case 1            dia = "lunes"        Case 2            dia = "martes"        Case 3            dia = "miercoles"        Case 4            dia = "jueves"        Case 5            dia = "viernes"        Case 6            dia = "sabado"        Case 7            dia = "domingo"End SelectFor m = 1 To xh = h + 1lbl.Caption = lbl.Caption & " " & dia 'Esto es un labelNextEnd Sub  Busca una forma de aumentar h, por ahi va la vaina ahora 'toy ocupado a little.

Juanolo:
Hola Kurt!
Aunque creo que ya lo debes tener solucionado, nunca está de más otra opción.
Puedes lograr lo mismo usando la función Format() aplicada a la fecha que quieras mostrar. Algo así:

Dim DiaSem as String
DiaSem=Format(Date, "dddd")

Salu2.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente