SoloCodigo

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...

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

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

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.

DiabloRojo, RadicalEd y Juanolo:

Mis mas grande agradecimiento a ustedes, por darme y darnos su apoyo en todas nuestras dificiles o faciles dudas muchas pero muchas gracias....
Les comento lo siguiente ocupe el codigo que muy amablemente me mando DiabloRojo lo adapte a mi proyecto y funciono de maravilla,  tambien a raiz de esto pude obtener mas informacíon como p.e
Del rango de fechas que selecciona el usuario aparte de darme los dias de la semana tambien me proporciona el numero de semana del año asi como el rango de dias que contiene, los escribo en un grid y listo...muchas gracias y espero alguna vez corresponder a su ayuda, aqui comparto el código para obtener el número de la semana del año y el rango de fechas para quien lo necesite

Saludos y un abrazo...

Function DiasSemana(numSemana As Integer) As String
Dim PrimerDiaAño As Date
Dim DiaSemana1Ene As Integer
Dim i As Integer
Dim cad As String

    PrimerDiaAño = DateSerial(Year(Date), 1, 1)
    DiaSemana = Weekday(PrimerDiaAño, vbMonday)
   
    For i = 6 To 0 Step -1
           cad = cad & DateAdd("d", (numSemana * 7) _
          - DiaSemana - i, PrimerDiaAño) & "  "
    Next
   
Text1.Text = cad
End Function


Private Sub Command1_Click()
  Call DiasSemana(26)
End Sub