Ver Mensaje Individual
  #7 (permalink)  
Antiguo 08/02/2004, 23:33
Avatar de HiTek
HiTek
 
Fecha de Ingreso: noviembre-2003
Ubicación: LF, Santiago.Chile
Mensajes: 217
Antigüedad: 16 años, 2 meses
Puntos: 0
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"), 51)
    
Cal.Day 1
    VTotal 
0
    
For 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 

Última edición por HiTek; 08/02/2004 a las 23:35