Calendario en Visual Basic 6.0

[mvero]

Hola a todos

Quisiera saber si alguien me puede ayudar, tengo que hacer un calendario en visual basic tal que pueda contar los dias habiles en un mes. Como puedo hacerlo? he visto que Visual Basic tiene un montView y un calendar, pero no se como utilizarlo, si alguien me puede decir como o donde puedo encontrar informacion al respecto se lo voy a agradecer mucho

Saludos!

[mister x]

usa un comando
si queres que la fecha salga como 05/02/04 en un text escribe dentro del codigo del formulario en load esto:

text1.text=date(now)
esperoi que te sirva

[mvero]

Gracias Mister X

y como hago para contar los dias habiles? como se que un dia es sabado o domingo? ademas tendria que dar una opcion para que el usuario inserte los dias feriados y restarselos...

[HiTek]

con el objeto calendar un sabado es equivalente a 7 y un un domingo es = a 1....pregunta por

if calendar1.day=1 or calendar1.day=7 then
total=total-1
endif

[mvero]

He puesto esto en el Calendar1_Click para verificar lo que me dices, pero solo me pone sabado si le doy click al dia 7

If Calendar1.Day = 7 Then Text1.Text = "Sabado"

[HiTek]

si usas el componente Microsoft Calendar esto te cuenta los dias que tiene el mes actual

Código PHP:

      Dim VTotal As Integer
    mes = CStr(Cal.Month)
    mes_actual = Mid(Format(Date, "DD/MM/YYYY"), 5, 1)
    Cal.Day = 1
    VTotal = 0
    For i = 1 To 31
        If mes = mes_actual Then
            VTotal = VTotal + 1
            mes = CStr(Cal.Month)
            Cal.NextDay
        End If
    Next i
    MsgBox VTotal - 1 
   

salu2

[HiTek]

UNA PEQUEEÑA MODIFICACIÓN Y RESTA LOS DIAS SABADOS Y DOMINGOS....SALU2

Código PHP:

      Dim VTotal As Integer
    mes = CStr(Cal.Month)
    mes_actual = Mid(Format(Date, "DD/MM/YYYY"), 5, 1)
    Cal.Day = 1
    VTotal = 0
    For i = 1 To 31
        If mes = mes_actual Then
            VTotal = VTotal + 1
            dia = UCase(Format(Cal.Day, "DDDD"))
            If dia = "SÁBADO" Or dia = "DOMINGO" Then
                VTotal = VTotal - 1
                MsgBox dia & "...." & Cal.Day
            End If
            mes = CStr(Cal.Month)
            Cal.NextDay
        End If
    Next i
    MsgBox "Dias habiles del mes: " & VTotal 
   

[mvero]

Eres un sol!! Muchas gracias

[HiTek]

y tu la luna...salu2 me voy a acostar pq son las 01:22 am en santiago de chile y mañana hay que levantarse a las 6:30 am para laburar...salu2 a to2

[mvero]

Bueno ya se que te fuiste a dormir, espero que mañana veas este post y me puedas responder.

El codigo que me diste funciona perfeto para el mes actual, pero si cambio de mes en el calendario ya la cosa no funciona, le cambie una parte al codigo, queda asi:

Dim VTotal As Integer
mes = CStr(Cal.Month)
mes_actual = Mid(Format(Date, "DD/MM/YYYY"), 5, 1)
Cal.Day = 1
VTotal = 0
For i = 1 To 31
VTotal = VTotal + 1
dia = UCase(Format(Cal.Day, "DDDD"))
If dia = "SÁBADO" Or dia = "DOMINGO" Then
VTotal = VTotal - 1
MsgBox dia & "...." & Cal.Day
End If
Cal.NextDay
Next i
MsgBox "Dias habiles del mes: " & VTotal

Le quite el if donde pregunta si el mes en el calendario es igual al mes actual, pero el primer dia por ejemplo de marzo me lo ve como un domingo, si yo cambie el mes en el calendario, dia no me deberia dar LUNES? o es que esas funciones de dia, mes, hora y todo eso lo toma del reloj de mi computadora? si es asi, que otros comandos existen para poder contar otros meses sin ser necesariamente el mes actual...

Saludos

[Lamp]

CDate() convierte una cadena de texto con formato de fecha a una fecha válida

IsDate() verifica que la fecha sea válida entonces...

teniendo en cuenta que una fech alleva este formato "DD/MM/YYYY"

puedes ir incrementando en 1 el dia comenzando desde 1 hasta 31 que es el maximo de dias que podria tener un mes

for i=1 to 31

y consultar si el string que se genera es una fecha valida...si es asi un contador se incrementará en 1...

Código PHP:

  For i=1 to 31
    FechaStr = "0" & i "/" & Mes & "/" & Anio
    Fecha = CDate(FechaStr)
    If IsDate(FechaStr) then
       contador = contador + 1
    end if
Next i 
   

nose que mas podria ver....salu2
PD: Lamp y Hitek soy el mismo jejjejej entre con otra sesión

[mvero]

Ok muchas gracias, de nochecita lo pruebo y cualquier cosa pego otro grito

Saludos!!!

[mvero]

Listo, muchas gracias por la ayuda, con algunas modificaciones entre todos los codigos que me diste pude hayar la solucion, la pongo aqui por si alguien la necesita, ademas lo termine haciendo con MonthView porque me gusta mas que muetre todo el año, ya que la idea es que cuente cuantos dias habiles hay en un año, lo unico que falta es hacerle algunas modificaciones para que no cuente todos los feriados que hay en un año..

Código PHP:

      Mes = "01"
    Mes = "01"
    Anio = Mid(Format(MonthView1, "DD/MM/YYYY"), 7, 4)
    For j = 1 To 12
        For i = 1 To 31
            FechaStr = "0" & i & "/" & Mes & "/" & Anio
            dia = UCase(Format(FechaStr, "DDDD"))
            If IsDate(FechaStr) Then
                fecha = CDate(FechaStr)
                If dia = "SÁBADO" Or dia = "DOMINGO" Or fecha = "01/01/04" Then No cuenta sabados ni domingos ni el 1 de enero que es feriado
                    contador = contador
                Else
                    contador = contador + 1
                End If
            End If
        Next i
        Select Case Mes
            Case "01"
                Mes = "02"
            Case "02"
                Mes = "03"
            Case "03"
                Mes = "04"
            Case "04"
                Mes = "05"
            Case "05"
                Mes = "06"
            Case "06"
                Mes = "07"
            Case "07"
                Mes = "08"
            Case "08"
                Mes = "09"
            Case "09"
                Mes = "10"
            Case "10"
                Mes = "11"
            Case "11"
                Mes = "12"
        End Select
    Next j
    Text1 = " Dias Habiles en año " & Anio & " = " & contador 
   

Saludos Hitek!

[edgards19]

esta bien
pero como hago para que sea un calendario con todos los dias
ose como algun calendario q tenemos en nuestras casa de 31 dias
con filas y columnas

[catec]

holaaaa..
akavo de suscribirme a esta pagina y estoy buscando informacion sobre:
como puedo hacer que en caendario en visual basic 6.0 sea la misma fecha que en la computadora..???

saludos ... espero me ayuden !!

[paisalea]

Buenos dias, estoy bucando ayuda con el monthview, queria saber si es posible poner un boton que me lleve al dia siguiente o al anterior del dia en el cual estoy posicionado, no necesariamente el dia actual. Gracias

[lokoman]

Facil, 2 Botones: CMD1 y CMD2

Código vb:

Private Sub cmd1_Click()
    MonthView.Value = MonthView.Value - 1
End Sub
 
Private Sub cmd2_Click()
    MonthView.Value = MonthView.Value + 1
End Sub