09/02/2004, 00:12
|
| | | Fecha de Ingreso: diciembre-2003
Mensajes: 69
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| 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 |