Fechas
JLG
diferente, no he encontrado un tema similar en internet. Tengo lo siguiente:
Ejemplo:
Dias de vencimiento: 10
Fecha notificaci�n: 01/05/09
Quisiera que en otro campo me aparezca la fecha, desde el 01/05/09+10 d�as
Hasta ah� es f�cil (supongo que ser�a la fecha de notificaci�n y sumarle 10
d�as, corr�janme si me equivoco), pero con muchas notificaciones debo sumar
de lunes a s�bado, y en otras s�lo lunes a viernes
�c�mo lo hago entonces?
JLG
de vencimiento otros d�as (prevencimiento), pero no me sale ninguna fecha :(
"JLG" <jeanih...@hotmail.com> escribi� en el mensaje de
noticias:39CD79F7-1A4D-4EAA...@microsoft.com...
JLG
preguntaba al principio, obviar, a veces, los fines de semana y otras veces
contarlos :?
"JLG" <jeanih...@hotmail.com> escribi� en el mensaje de
noticias:02BC6269-BF5F-44C3...@microsoft.com...
jmmiralles
como lo de sumar días solo lo sabes tu, te he creado un pequeño código.
Imagina que tenemos un cuadro de texto que se llama txtFecha1 y que su valor
es la fecha de hoy, el cual si te vale el ejemplo tendrás que adaptar a tus
necesidades.
Lo que haremos será preguntar mediante un inputbox los días que quieres
incrementar.
En el evento "al entrar"
''Declaramos una variable que recogerá los datos que introduzcamos
''en el inputbox.
''Creamos un bucle que estará iterando mientras que el contenido
'del inputbox no sea un número.
''Si sale de este bucle es porque el inputbox es un número.
''Creamos otro bucle y si el número introducido es distinto de 5 ó 6
''seguiremos iterando hasta que coincida con cualquiera de ellos.
''Cuando el contenido del intupbox coincida con 5 ó 6, le sumaremos
''el valor del inputbox a la fecha que hay en txtFecha1.
Dim SumaFecha As Variant
SumaFecha = InputBox("¿Cuantos días quieres sumar a la fecha de hoy?" &
Chr(13) & "Si es de Lunes a Viernes introduce: 5" _
& Chr(13) & "Si es de Lunes a Sábado introduce: 6", "Suma
de Días", "Introduce aquí")
''Mientras que no sea un número itera
Do While Not IsNumeric(SumaFecha)
SumaFecha = InputBox("¿Cuantos días quieres sumar a la fecha de hoy?" &
Chr(13) & "Si es de Lunes a Viernes introduce: 5" _
& Chr(13) & "Si es de Lunes a Sábado introduce: 6", "Suma de Días",
"Introduce aquí")
Loop
''si sale del bucle es porque es un numero
''mientras que sea distinto de 5 ó 6 itera
Do While SumaFecha <> 5 And SumaFecha <> 6
SumaFecha = InputBox("Si es de Lunes a Viernes introduce: 5" _
& Chr(13) & "Si es de Lunes a Sábado introduce: 6", "Suma de Días",
"Introduce aquí")
Loop
'si sale del bucle es porque o es un 5 ó un 6,
'a la fecha que hay en txtfecha1 le sumamos el Inputbox.
txtFecha1 = Now + SumaFecha
'************************************************
Si quieres sumar más de 5 ó 6 tendrías que quitar el segundo bucle, pues
este lo que hace es iterar mientras que el número introducido no sea un 5 ó
un 6.
Espero que te sirva, ya cuentas algo
Saludos desde un lugar de la Mancha.
"JLG" escribió:
> vale, esto ltimo ya me sale, lo de restar, lo que no s tanto es lo que
> preguntaba al principio, obviar, a veces, los fines de semana y otras veces
> contarlos :?
>
>
> "JLG" <jeanih...@hotmail.com> escribi en el mensaje de
> noticias:02BC6269-BF5F-44C3...@microsoft.com...
> > tambin quisiera restar al resultado de la suma de fecha notificacion+dias
> > de vencimiento otros das (prevencimiento), pero no me sale ninguna fecha
> > :(
> >
> >
> >
> > "JLG" <jeanih...@hotmail.com> escribi en el mensaje de
> > noticias:39CD79F7-1A4D-4EAA...@microsoft.com...
> >> Creo que sobre fechas es lo que ms se pregunta en access, pero mi duda
> >> es diferente, no he encontrado un tema similar en internet. Tengo lo
> >> siguiente:
> >> Ejemplo:
> >> Dias de vencimiento: 10
> >> Fecha notificacin: 01/05/09
> >>
> >> Quisiera que en otro campo me aparezca la fecha, desde el 01/05/09+10
> >> das
> >> Hasta ah es fcil (supongo que sera la fecha de notificacin y sumarle
> >> 10 das, corrjanme si me equivoco), pero con muchas notificaciones debo
> >> sumar de lunes a sbado, y en otras slo lunes a viernes
> >>
> >> cmo lo hago entonces?
> >
> >
> >
>
>
>
jmmiralles
si lo que quieres es calcular días, incluidos sabados y domingos según te
convenga entre dos fechas, Julian de Valencia en su web tiene un ejemplo,
creo que se llama Días laborales, el link es:
http://juliansanchezgomez.web.officelive.com/misejemplos.aspx
Saludos desde un lugar de la Mancha.
"JLG" escribió:
> vale, esto ltimo ya me sale, lo de restar, lo que no s tanto es lo que
> preguntaba al principio, obviar, a veces, los fines de semana y otras veces
> contarlos :?
>
>
> "JLG" <jeanih...@hotmail.com> escribi en el mensaje de
> noticias:02BC6269-BF5F-44C3...@microsoft.com...
> > tambin quisiera restar al resultado de la suma de fecha notificacion+dias
> > de vencimiento otros das (prevencimiento), pero no me sale ninguna fecha
> > :(
> >
> >
> >
> > "JLG" <jeanih...@hotmail.com> escribi en el mensaje de
> > noticias:39CD79F7-1A4D-4EAA...@microsoft.com...
> >> Creo que sobre fechas es lo que ms se pregunta en access, pero mi duda
> >> es diferente, no he encontrado un tema similar en internet. Tengo lo
> >> siguiente:
> >> Ejemplo:
> >> Dias de vencimiento: 10
> >> Fecha notificacin: 01/05/09
> >>
> >> Quisiera que en otro campo me aparezca la fecha, desde el 01/05/09+10
JLG
http://rapidshare.com/files/228383691/Copia_de_DiasLaborales.mdb.html
incluyo lo que ando buscando, lo que conseguido a medias (en gris) porque
hay fallos, ya que puse como ejemplo 20 dias de notificación desde el
1/05/2009 y todo bien (he tenido que sumar un 1 cuando se trata de los
sábados laborables), sin embargo, cuando he puesto de inicio/notificación
desde el 2/05/2009, resulta que la fecha fin me suma uno menos, y ya no
mola, ¿alguna mejora?
"jmmiralles" <jmmir...@discussions.microsoft.com> escribió en el mensaje
de noticias:7CD751E7-3129-4E4E...@microsoft.com...