Calendario en Visual Basic 6.0

mvero · #1 (**permalink**) 08/02/2004, 22:53

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 · #2 (**permalink**) 08/02/2004, 22:59

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 · #3 (**permalink**) 08/02/2004, 23:01

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 · #4 (**permalink**) 08/02/2004, 23:08

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 · #5 (**permalink**) 08/02/2004, 23:19

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 · #6 (**permalink**) 08/02/2004, 23:23

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 · #7 (**permalink**) 08/02/2004, 23:33

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 · #8 (**permalink**) 08/02/2004, 23:35

Eres un sol!! Muchas gracias

HiTek · #9 (**permalink**) 08/02/2004, 23:37

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 · #10 (**permalink**) 09/02/2004, 00:12

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 · #11 (**permalink**) 09/02/2004, 12:36

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 · #12 (**permalink**) 09/02/2004, 15:04

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

Saludos!!!

mvero · #13 (**permalink**) 10/02/2004, 01:12

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 · #14 (**permalink**) 25/01/2008, 08:27

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 · #15 (**permalink**) 02/03/2010, 17:15

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 · #16 (**permalink**) 17/01/2012, 06:42

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 · #17 (**permalink**) 18/01/2012, 10:29

Facil, 2 Botones: CMD1 y CMD2

Código vb:

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