Bucle con fechas en calendario
Estoy realizando un calendario donde, si un feriado cae miércoles o jueves debe pasar al lunes próximo, ejemplo cae 1 debe pasar a al lunes 6 y si cae martes debe pasar al lunes anterior ejemplo: martes 2 debe pasar a lunes 1. Estoy utilizando este bucle, que me adelante la fecha a 20 años, con el día esta todo bien. No consigo que los años corrar y que los demás también. Eh probado con if y no hay caso les dejo el código que utilizo.
Private Sub Movible_Click()
Dim i As Byte
Dim ahora1 As Date
Dim fech As Date
Dim texto As String
Dim salida As String
Dim Descrip: Descrip = Me.Descripcion
fech = Me.Fecha
ahora1 = DateAdd("d", 0, [fech]) ' dejo dia actual
ahora1 = DateAdd("yyyy", 0, [fech]) ' dejo año actual
Fecha = ahora1
texto = Me.Conmemoracion 'Es para acortar nombre y borrar todos
salida = Left(texto, 3)
Me.clave = salida
If Weekday(Fecha, vbMonday) = 3 Then ' si el dia es igual a mierocles debe pasar al lunes posterior
For i = 1 To Me.si 'armo el bucle segun la catidad del campo si
DoCmd.SetWarnings False
fech = ahora1
ahora1 = DateAdd("d", -2, [fech]) ' aqui le resto los 2 dias
ahora1 = DateAdd("yyyy", 1, [fech]) ' aqui suma un año
DoCmd.GoToRecord , , acNewRec
Descripcion = Descrip
Fecha = ahora1
Descripcion = Descrip
texto = Me.Conmemoracion
salida = Left(texto, 3)
Me.clave = salida
DoCmd.GoToRecord , , acFirst
Me.Requery
Me.Lista43.Requery
Next i
End If
End Sub
3 Respuestas
¿Podrías poner una imagen de lo que, más o menos, quieres.? Es que por más que leo no consigo entenderlo.
Estimado Aquí le dejo la base,, para que pueda verla. Es el formulario ffestivos. El cual carga los días al calendario principal. Como vera el de fecha fijas anda bien, dado que el bucle suma los 20 años.
https://drive.google.com/file/d/1XzKAiBGzdanKSRKP0F4sl-Z5h3T8n2Uw/view?usp=sharing
Había empezado a prepararte un ejemplo, ya que, honestamente, el código de tu base me parece bastante lioso y que sobra mucho. Por ejemplo( luego te digo por lo que no he seguido), si tengo el formulario donde elijo el día, mes, año que quiera. Puedes ver que no se necesita ninguna tabla ya que la de citas todavía no se ha usado y la de festivos es la de festivos en España.
Elijo un día
Elijo un mes
El combinado Elija el año me muestra 20 años como podría mostrarme 200. En el mismo momento que selecciono uno
Y con esos datos ya podrías confeccionar( no está terminado) el calendario de ese mes y poder fijar citas por horas, y el código no puede ser más simple, como te decía, sin necesidad de tablas
Private Sub ElegirAño_AfterUpdate()
DiaElegido = CDate([ElegirDia] & "/" & [ElegirMes] & "/" & [ElegirAño])
DiaSemana = Format([DiaElegido], "dddd")
PrimerDia = DateSerial(Year([DiaElegido]), Month([DiaElegido]), 1)
UltimoDia = DateSerial(Year([DiaElegido]), Month([DiaElegido]) + 1, 0)
PrimerLetra = Format([PrimerDia], "dddd")
UltimoLetra = Format([UltimoDia], "dddd")
If DCount("*", "festivos", "DiaFestivo=day([diaelegido]) and mesfestivo=month([diaelegido])") >= 1 Then
EsFestivo = "SI"
Else
EsFestivo = "NO"
End If
End Sub
Private Sub ElegirAño_GotFocus()
Dim i As Integer
For i = 2022 To 2042
ElegirAño.AddItem i
Next
End Sub
Private Sub ElegirDia_GotFocus()
Dim i As Byte
For i = 1 To 31
ElegirDia.AddItem i
Next
End Sub
Private Sub ElegirMes_GotFocus()
Dim i As Byte
For i = 1 To 12
ElegirMes.AddItem i
Next
End SubEs decir, los combinados no tienen origen de la fila, con lo cual no necesitas ninguna tabla, se lo das cuando pones el cursor sobre él, y una vez que has elegido el año, se rellenan los cuadros de texto.
No continué, ya que he observado la insistencia ( o necesidad imperiosa) de alguien en que adaptes su idea.
Desconociendo de donde sale la fecha inicial, según se calcule, habrá años en que la fecha se corresponda con días no laborables (sábado, domingo) y se perdería el feriado ese año.
Que calculo es el correcto, conservar el día feriado (a cambio de uno laborable) o ignorarlo
Estimado Aquí le dejo la base,, para que pueda verla. Es el formulario ffestivos. El cual carga los días al calendario principal. Como vera el de fecha fijas anda bien, dado que el bucle suma los 20 años.
https://drive.google.com/file/d/1XzKAiBGzdanKSRKP0F4sl-Z5h3T8n2Uw/view?usp=sharing
Ojeare la base, pero la pregunta es si el día festivo es del trabajador, esto es: si cuadra con un festivo (sábado, domingo) se pasa también al lunes o si ese día se pierde (en beneficio del patrón y a perjuicio del trabajador)
Tengo ambos cálculos pendientes únicamente de esa cuestión, ya que no es lo mismo calcular el próximo en base a la fecha actual (o referente) para años futuros y el mismo calculo que se basa en tomar como referente la fecha calculada año a año (que suele ser la que aplica el trabajador a la hora de calcular los festivos)
El cálculo básico lo interpreto así (si mi análisis correcto, se trata de evitar puentes entre semana, derivando los festivos al lunes más próximo)
X_Fecha = DateAdd("yyyy", N_Años, X_Fecha)
X_Fecha = X_Fecha - 1 * Abs(Weekday(X_Fecha, vbMonday) = 2)
X_Fecha = X_Fecha + 5 * Abs(Weekday(X_Fecha, vbMonday) = 3)
X_Fecha = X_Fecha + 4 * Abs(Weekday(X_Fecha, vbMonday) = 4)Siendo X_Fecha la fecha referente para el cálculo. y Festivo = Feriado
Sobre los calendarios y los festivos.
Hay una fórmula que utilizan (en el Vaticano, para los católicos) para organizar el santoral de cada año, se basa en una fecha concreta que ha de coincidir en un día concreto (por ejemplo 'el 'domingo de ramos') que no puede ser más que un domingo y por ello la 'regla' dice que domingo del mes se utilizara.
En base a esa fecha salen el resto de los festivos que pueden reubicarse y como la liturgia tiene sus ciclos (la ascensión x días tras la muerte y resurrección) hay una formulación para ello y muchos festivos 'bailan por el calendario'.
Otros festivos (no asociados a eventos religiosos) también deben de conservar 'su día' independiente de donde caiga (por poner un caso: en los estados unidos el día de la independencia, el cuatro de julio).
Hay festivos concretos que puede ser necesario reubicar si caen en un festivo natural (sábado/domingo) porque de no hacerlo no se podría celebrar adecuadamente o se perdería como tal festivo ese año (por ejemplo, los festivos gremiales, asociados a un santo).
Muchas gracias, tu ejemplo lo eh utilizado, pero me da el mismo resultado que el utilizado de otra manera.
El problema esta en que el año, no corre a la par de la fecha.
Algo no esta bien en el bucle que has utilizado, en mi calculo de fechas he aplicado dos metodos:
En este se calcula tomando como semilla para el año que viene la fecha del año en curso obteniendo estos resultados:
Public Function CalculaF(X_Fecha As Date, N_Años As Long) As Date
Dim Bucle As Long
For Bucle = 1 To N_Años
X_Fecha = DateAdd("yyyy", 1, X_Fecha)
X_Fecha = X_Fecha + 1 * (Weekday(X_Fecha) = vbTuesday) - 5 * (Weekday(X_Fecha) = vbWednesday) - 4 * (Weekday(X_Fecha) = vbThursday)
Next Bucle
CalculaF = X_Fecha
End Function
Antes del cálculo fecha recalculada
17/09/2023 domingo 17/09/2023 domingo
17/09/2024 martes 16/09/2024 lunes
16/09/2025 martes 15/09/2025 lunes
15/09/2026 martes 14/09/2026 lunes
14/09/2027 martes 13/09/2027 lunes
13/09/2028 miércoles 18/09/2028 lunes
18/09/2029 martes 17/09/2029 lunes
17/09/2030 martes 16/09/2030 lunes
16/09/2031 martes 15/09/2031 lunes
15/09/2032 miércoles 20/09/2032 lunes
20/09/2033 martes 19/09/2033 lunes
19/09/2034 martes 18/09/2034 lunes
18/09/2035 martes 17/09/2035 lunes
17/09/2036 miércoles 22/09/2036 lunes
22/09/2037 martes 21/09/2037 lunes
21/09/2038 martes 20/09/2038 lunes
20/09/2039 martes 19/09/2039 lunes
19/09/2040 miércoles 24/09/2040 lunes
24/09/2041 martes 23/09/2041 lunes
23/09/2042 martes 22/09/2042 lunes
22/09/2043 martes 21/09/2043 lunesEn este otro se mantiene la fecha inicial y se le añaden años obteniendo fechas sin martes, miércoles o jueves:
Public Function CalculaFf(ZFecha As Date, U_Años As Long) As Date
ZFecha = DateAdd("yyyy", U_Años, ZFecha)
CalculaFf = ZFecha + 1 * (Weekday(ZFecha) = vbTuesday) - 5 * (Weekday(ZFecha) = vbWednesday) - 4 * (Weekday(ZFecha) = vbThursday)
End Function
17/09/2023 domingo 17/09/2023 domingo
17/09/2024 martes 16/09/2024 lunes
17/09/2025 miércoles 22/09/2025 lunes
17/09/2026 jueves 21/09/2026 lunes
17/09/2027 viernes 17/09/2027 viernes
17/09/2028 domingo 17/09/2028 domingo
17/09/2029 lunes 17/09/2029 lunes
17/09/2030 martes 16/09/2030 lunes
17/09/2031 miércoles 22/09/2031 lunes
17/09/2032 viernes 17/09/2032 viernes
17/09/2033 sábado 17/09/2033 sábado
17/09/2034 domingo 17/09/2034 domingo
17/09/2035 lunes 17/09/2035 lunes
17/09/2036 miércoles 22/09/2036 lunes
17/09/2037 jueves 21/09/2037 lunes
17/09/2038 viernes 17/09/2038 viernes
17/09/2039 sábado 17/09/2039 sábado
17/09/2040 lunes 17/09/2040 lunes
17/09/2041 martes 16/09/2041 lunes
17/09/2042 miércoles 22/09/2042 lunesLos saltos de día de la semana coinciden con los años bisiestos y en el 'se pierden' los festivos que coinciden en sábado y domingo.
¡Gracias! Enrique, es tal cual lo que tu dices hay algo en el bucle que esta mal y no logro saber que es.
Los 2 ejemplos me han seervido.
Agradezco tu colabioracion, como a los demás que han respondido a mi consulta.
La variable que utilizas para incrementar los años (o el dato que incrementes) la compartes en otro sitio y se interfieren, crea una exclusiva para esa función e inténtalo de nuevo (aunque ya lo tengas solucionado, que el error te sirva para aprender algo nuevo)
¡Gracias! Por el consejo así lo hago, a pesar de poder solucionarlo por otro lado, igual seguiré tratando que funcione ya teniendo una punto lo haré. Muchas gracias
Escríbame a [email protected] y le regalo este calendario para 21 países, está hecho en VB6.0. La respuesta a su pregunta está en el código, como observa este calendario en pantalla está para Colombia, en donde los festivos se pasan al siguiente lunes, pero entre los países tengo Chile en donde se da un manejo diferente, creo que es el caso de su pregunta.
Estimado muchas gracias le he enviado el email, con la solicitud de envio de la base.
Igual aquí le dejo la base,, para que pueda verla. Es el formulario ffestivos. El cual carga los días al calendario principal. Como vera el de fecha fijas anda bien, dado que el bucle suma los 20 años.
https://drive.google.com/file/d/1XzKAiBGzdanKSRKP0F4sl-Z5h3T8n2Uw/view?usp=sharing
Cómo está trabajando su base de datos no es la forma de manipular los festivos, veo que es de Argentina, en este caso puede enviarme a mi correo los festivos de Argentina indicando fijos y cuáles se trasladan.
Elaboré hace muchos años el código de las funciones para este caso sin necesidad de crear tablas de festivos, es decir, en lo posible un calendario prácticamente perpetuo.
Estimado Eduardo, los feriados movibles los implemente el gobierno año a año de acuerdo a las necesidades turísticas. A veces lo hace por 2 años, otras vez por 1.
Por esa razón se creo el campo para poner la cantidad de bucles.
Ud va a ver otro botón que dice fijos esos si quedan como están pero son pocos. Ejemplo: 1 de mayo, 9 de julio, 25 de diciembre, 1 de enero.
Si mira mi programa calendario, hay una opción para adicionar otros días no laborables, por ejemplo, vacaciones, igualmente permite definir si el día sábado se considera laborable.
Observe que he adicionado a los días no laborables el 26 y 27 de septiembre, en consecuencia, el calendario cambia el color para estos días.
Ahora si hago doble clic sobre el día 27 para programar una actividad, el sistema me informa que esa fecha se ha considerado NO laborable.
Este código lo tengo para VB 6.0 pero se puede recuperar, tendría que reinstalar Visual Studio de esa versión. La idea es igual para Access, es decir, los algoritmos son válidos. Envíeme su correo y le hago llegar el instalador de la Agenda para que se haga una mejor idea.
Estimado Eduardo muchas gracias le eh enviado el correo. Tengo instalado en una pc viejita el VB6.
Olavarria no he recibido su correo para enviarle el programa y no le estoy imponiendo mi idea como dicen, comenzando porque si UTILIZAN tabla de festivos y de esto se trata mi algoritmo de NO utilizar tabla de festivos, solo una tabla para registrar las vacaciones y otros días que se acuerden no laborables, en caso de que se consideren, pero no es obligatoria. Y mejor que no le siguieron explicando están lejos de la solución.
Estimado Eduardo, se lo he enviado ayer con el Titulo " Bucle con fechas en calendario".
Ya se lo reenvío nuevamente,, Desde mi ciudad.
Saludos
Lo he enviado a su correo.