SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Kurt en Viernes 24 de Junio de 2005, 01:17

Título: Nombres De Dias De La Semana
Publicado por: Kurt en Viernes 24 de Junio de 2005, 01:17
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...
Título: Re: Nombres De Dias De La Semana
Publicado por: DiabloRojo en Viernes 24 de Junio de 2005, 05:39
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
Título: Re: Nombres De Dias De La Semana
Publicado por: Kurt en Sábado 25 de Junio de 2005, 01:41
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
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
Título: Re: Nombres De Dias De La Semana
Publicado por: RadicalEd en Sábado 25 de Junio de 2005, 02:54
Código: Text
  1. Private Sub Form_Load()
  2. Dim inicial, final, x, h, m
  3. inicial = #6/20/2005#
  4. final = #6/24/2005#
  5. h = Weekday(inicial)
  6. x = DateDiff("d", inicial, final)
  7. MsgBox x
  8. Select Case h
  9.         Case 1
  10.             dia = "lunes"
  11.         Case 2
  12.             dia = "martes"
  13.         Case 3
  14.             dia = "miercoles"
  15.         Case 4
  16.             dia = "jueves"
  17.         Case 5
  18.             dia = "viernes"
  19.         Case 6
  20.             dia = "sabado"
  21.         Case 7
  22.             dia = "domingo"
  23. End Select
  24. For m = 1 To x
  25. h = h + 1
  26. lbl.Caption = lbl.Caption & " " & dia 'Esto es un label
  27. Next
  28. End Sub
  29.  
  30.  
Busca una forma de aumentar h, por ahi va la vaina ahora 'toy ocupado a little.
Título: Re: Nombres De Dias De La Semana
Publicado por: Juanolo en Sábado 25 de Junio de 2005, 16:30
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.
Título: Re: Nombres De Dias De La Semana
Publicado por: DiabloRojo en Domingo 26 de Junio de 2005, 00:07
Como dice Juanolo probablemente ya has resuelto el problema. Aún así aquí te mando un ejemplillo de como devolver los nombres de los días dentro de un rango de fechas. Las ideas que uso son parecidas a las que te mandan RadicalEd y Juanolo. Si lo resolviste de alguna otra forma comentanos así todos aprendemos.

DiabloRojo.
Título: Re: Nombres De Dias De La Semana
Publicado por: Kurt en Lunes 27 de Junio de 2005, 21:12
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