Ayuda con access y vba
Hola! Necesito contar los lunes, martes, miércoles, jueves y viernes que hay un mes, ¿alguien me puede echar un cable? Muchas gracias
1 respuesta
Respuesta de ftornero
1
Private Sub Command1_Click()
calcularDiasMes 5, 2004
End Sub
Private Sub calcularDiasMes(iMes As Integer, iAnno As Integer)
Select Case iMes
Case 1, 3, 5, 7, 9, 11
iNumeroDias = 31
Case 4, 6, 8, 10, 12
iNumeroDias = 30
Case 2
If iAnno Mod 4 = 0 Then
iNumeroDias = 29
Else
iNumeroDias = 28
End If
End Select
iprimerdia = Weekday("1/" & iMes & "/" & iAnno, vbMonday)
Select Case iprimerdia
Case 1 'Lunes
numeroLunes = redondearmas(iNumeroDias / 7)
numeroMartes = redondearmas((iNumeroDias - 1) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 2) / 7)
numeroJueves = redondearmas((iNumeroDias - 3) / 7)
numeroViernes = redondearmas((iNumeroDias - 4) / 7)
numeroSabados = redondearmas((iNumeroDias - 5) / 7)
numeroDomingo = redondearmas((iNumeroDias - 6) / 7)
Case 2 'Martes
numeroLunes = redondearmas((iNumeroDias - 6) / 7)
numeroMartes = redondearmas((iNumeroDias) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 1) / 7)
numeroJueves = redondearmas((iNumeroDias - 2) / 7)
numeroViernes = redondearmas((iNumeroDias - 3) / 7)
numeroSabados = redondearmas((iNumeroDias - 4) / 7)
numeroDomingo = redondearmas((iNumeroDias - 5) / 7)
Case 3 'Miercoles
numeroLunes = redondearmas((iNumeroDias - 5) / 7)
numeroMartes = redondearmas((iNumeroDias - 6) / 7)
numeroMiercoles = redondearmas((iNumeroDias) / 7)
numeroJueves = redondearmas((iNumeroDias - 1) / 7)
numeroViernes = redondearmas((iNumeroDias - 2) / 7)
numeroSabados = redondearmas((iNumeroDias - 3) / 7)
numeroDomingo = redondearmas((iNumeroDias - 4) / 7)
Case 4 'Jueves
numeroLunes = redondearmas((iNumeroDias - 4) / 7)
numeroMartes = redondearmas((iNumeroDias - 5) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 6) / 7)
numeroJueves = redondearmas((iNumeroDias) / 7)
numeroViernes = redondearmas((iNumeroDias - 1) / 7)
numeroSabados = redondearmas((iNumeroDias - 2) / 7)
numeroDomingo = redondearmas((iNumeroDias - 3) / 7)
Case 5 'Viernes
numeroLunes = redondearmas((iNumeroDias - 3) / 7)
numeroMartes = redondearmas((iNumeroDias - 4) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 5) / 7)
numeroJueves = redondearmas((iNumeroDias - 6) / 7)
numeroViernes = redondearmas((iNumeroDias) / 7)
numeroSabados = redondearmas((iNumeroDias - 1) / 7)
numeroDomingo = redondearmas((iNumeroDias - 2) / 7)
Case 6 'Sabado
numeroLunes = redondearmas((iNumeroDias - 2) / 7)
numeroMartes = redondearmas((iNumeroDias - 3) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 4) / 7)
numeroJueves = redondearmas((iNumeroDias - 5) / 7)
numeroViernes = redondearmas((iNumeroDias - 6) / 7)
numeroSabados = redondearmas((iNumeroDias) / 7)
numeroDomingo = redondearmas((iNumeroDias - 1) / 7)
Case 7 'Domingo
numeroLunes = redondearmas((iNumeroDias - 1) / 7)
numeroMartes = redondearmas((iNumeroDias - 2) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 3) / 7)
numeroJueves = redondearmas((iNumeroDias - 4) / 7)
numeroViernes = redondearmas((iNumeroDias - 5) / 7)
numeroSabados = redondearmas((iNumeroDias - 6) / 7)
numeroDomingo = redondearmas((iNumeroDias) / 7)
End Select
MsgBox numeroLunes
MsgBox numeroMartes
MsgBox numeroMiercoles
calcularDiasMes 5, 2004
End Sub
Private Sub calcularDiasMes(iMes As Integer, iAnno As Integer)
Select Case iMes
Case 1, 3, 5, 7, 9, 11
iNumeroDias = 31
Case 4, 6, 8, 10, 12
iNumeroDias = 30
Case 2
If iAnno Mod 4 = 0 Then
iNumeroDias = 29
Else
iNumeroDias = 28
End If
End Select
iprimerdia = Weekday("1/" & iMes & "/" & iAnno, vbMonday)
Select Case iprimerdia
Case 1 'Lunes
numeroLunes = redondearmas(iNumeroDias / 7)
numeroMartes = redondearmas((iNumeroDias - 1) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 2) / 7)
numeroJueves = redondearmas((iNumeroDias - 3) / 7)
numeroViernes = redondearmas((iNumeroDias - 4) / 7)
numeroSabados = redondearmas((iNumeroDias - 5) / 7)
numeroDomingo = redondearmas((iNumeroDias - 6) / 7)
Case 2 'Martes
numeroLunes = redondearmas((iNumeroDias - 6) / 7)
numeroMartes = redondearmas((iNumeroDias) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 1) / 7)
numeroJueves = redondearmas((iNumeroDias - 2) / 7)
numeroViernes = redondearmas((iNumeroDias - 3) / 7)
numeroSabados = redondearmas((iNumeroDias - 4) / 7)
numeroDomingo = redondearmas((iNumeroDias - 5) / 7)
Case 3 'Miercoles
numeroLunes = redondearmas((iNumeroDias - 5) / 7)
numeroMartes = redondearmas((iNumeroDias - 6) / 7)
numeroMiercoles = redondearmas((iNumeroDias) / 7)
numeroJueves = redondearmas((iNumeroDias - 1) / 7)
numeroViernes = redondearmas((iNumeroDias - 2) / 7)
numeroSabados = redondearmas((iNumeroDias - 3) / 7)
numeroDomingo = redondearmas((iNumeroDias - 4) / 7)
Case 4 'Jueves
numeroLunes = redondearmas((iNumeroDias - 4) / 7)
numeroMartes = redondearmas((iNumeroDias - 5) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 6) / 7)
numeroJueves = redondearmas((iNumeroDias) / 7)
numeroViernes = redondearmas((iNumeroDias - 1) / 7)
numeroSabados = redondearmas((iNumeroDias - 2) / 7)
numeroDomingo = redondearmas((iNumeroDias - 3) / 7)
Case 5 'Viernes
numeroLunes = redondearmas((iNumeroDias - 3) / 7)
numeroMartes = redondearmas((iNumeroDias - 4) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 5) / 7)
numeroJueves = redondearmas((iNumeroDias - 6) / 7)
numeroViernes = redondearmas((iNumeroDias) / 7)
numeroSabados = redondearmas((iNumeroDias - 1) / 7)
numeroDomingo = redondearmas((iNumeroDias - 2) / 7)
Case 6 'Sabado
numeroLunes = redondearmas((iNumeroDias - 2) / 7)
numeroMartes = redondearmas((iNumeroDias - 3) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 4) / 7)
numeroJueves = redondearmas((iNumeroDias - 5) / 7)
numeroViernes = redondearmas((iNumeroDias - 6) / 7)
numeroSabados = redondearmas((iNumeroDias) / 7)
numeroDomingo = redondearmas((iNumeroDias - 1) / 7)
Case 7 'Domingo
numeroLunes = redondearmas((iNumeroDias - 1) / 7)
numeroMartes = redondearmas((iNumeroDias - 2) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 3) / 7)
numeroJueves = redondearmas((iNumeroDias - 4) / 7)
numeroViernes = redondearmas((iNumeroDias - 5) / 7)
numeroSabados = redondearmas((iNumeroDias - 6) / 7)
numeroDomingo = redondearmas((iNumeroDias) / 7)
End Select
MsgBox numeroLunes
MsgBox numeroMartes
MsgBox numeroMiercoles
Vale, en principio me vale, pero quiero conseguir la parte entera del numero decimal. Es decir, si es el 3,2 que coja un 4 y si es un 3,8 que coja el 4 y si es un 3 que sea el 3.
¿Se entiende, no?
Muchas Gracias
¿Se entiende, no?
Muchas Gracias
