Programación General > Visual Basic 6.0 e inferiores

 Nombres De Dias De La Semana

<< < (2/2)

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

Kurt:
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

Navegación

[0] Índice de Mensajes

[*] Página Anterior