Saltar al contenido

Días que faltan hasta cumpleaños


Fleming

Recommended Posts

Hola "monstruos" formulianos

Pues utilizando lógica macroniana, me ha salido esto:

=SI(MES(HOY())>MES(C7);(DIA(C7) & "/" & MES(C7) & "/" & AÑO(HOY())+1)-HOY();(DIA(C7) & "/" & MES(C7) & "/" & AÑO(HOY()))-HOY())[/PHP]

Creo que funciona

Paz y amor

Enlace a comentario
Compartir con otras webs

Ahi va una UDF macroniana:

Public Function CuantosDiasParaMiCumple(Cumple As Date) As Integer
Dim FechaActual As Date: FechaActual = Date
Dim DiasFaltan As Integer
Do While Month(Cumple) <> Month(FechaActual) Or Day(Cumple) <> Day(FechaActual)
FechaActual = FechaActual + 1
DiasFaltan = DiasFaltan + 1
Loop
CuantosDiasParaMiCumple = DiasFaltan
End Function[/CODE]

[CODE]Sub ProbandoFuncion()
MsgBox CuantosDiasParaMiCumple("12/10/1984")
End Sub[/CODE]

Saludos

Enlace a comentario
Compartir con otras webs

"Todos los caminos conducen a Roma y tú llegaste por una vía más corta, pero el 29 de febrero te jugó una mala pasada...?"

¡ Total para los pocos que nacen el 29 de febrero que se lo calculen a mano !.....jajaja

¡ Ave Dr. !

Enlace a comentario
Compartir con otras webs

Elías

Como te indico en el post 11, cuando la fecha del próximo cumpleaños cae dentro del año actual tu propuesta no funciona.

Ensaya, por ejemplo, como fecha de nacimiento el 25-12-1970. Su próximo cumpleaños será el 25-12-2012. Por consiguiente faltan 23 días (considerando que hoy es 02-12-12)

Con tu propuesta se obtienen 388.

Saludos

Enlace a comentario
Compartir con otras webs

Que tal Fleming,

Yo me pregunto, es el 28 de febrero el día correcto para celebrar el cumpleaños a los nacidos el 29 de febrero cuando no es año bisiesto? La realidad es que los nacidos el 29/Feb nacieron un día después del 28/Feb.

Saludos

Enlace a comentario
Compartir con otras webs

Ya sabes, "todo es según el color del cristal con que se mira..."

Por ejemplo: El nacido un 29 de febrero, ha nacido el último día de Febrero. ¿No es razonable que celebre siempre su cumpleaños el último día de Febrero y no el 01 de Marzo?

Yo lo celebraría el último día de Febrero, ¿y tú?

Aunque, quizás lo mejor sería ampliar el festejo y ¡celebrarlo los dos días! ... Ja,Ja,Ja!

Saludos

Enlace a comentario
Compartir con otras webs

LAAAAAElFTkSuQmCC

Los nacidos en este día suelen celebrar su cumpleaños el 28 de febrero o el 1 de marzo en los años no bisiestos, dependiendo normalmente de si el nacimiento en sí se dio previo al mediodía o posterior a éste. Por lo tanto, si el cumpleañero nació entre las 00:00 y las 11:59, debería celebrársele el cumpleaños el 28 de febrero; por el contrario, si nació entre las 12:00 y las 23:59, entonces debería serle celebrado el cumpleaños el 1 de marzo.

No obstante, en España la normativa civil española establece que a efectos legales los nacidos un 29 de febrero cumplen años a las 00:00 horas del día 28 de febrero en aquellos años que no sean bisiestos. Por ejemplo, una persona nacida el 29 de febrero de 2000, alcanzará la mayoría de edad exactamente a las 00:00 horas del 28 de febrero de 2018, siendo irrelevante a estos efectos la hora exacta de su nacimiento.

Eso dicen en Wikipedia .... :stupid:

Enlace a comentario
Compartir con otras webs

Yo lo celebraría el último día de Febrero, ¿y tú?

Si me lo hubieras preguntado hace 20 años te diría que los 2 días y cuidado si el 28 cayera en jueves porque entonces lo celebraría 4 días.:very_drunk: En cambio ahora solo celebraría llegar al día :sorrow:

Saludos

Enlace a comentario
Compartir con otras webs

La norma legal que cita Wikipedia es correcta. Y eso es lo que hemos tenido en cuenta a efectos de Excel.

Por lo demás, te puedo asegurar que, salvo algún caso extraño, aquí se celebra el cumpleaños conforme a dicha norma legal, es decir, el último día de Febrero.

Otra cosa será que alguno lo celebre cuando le apetezca.

Enlace a comentario
Compartir con otras webs

Hola;

Les cuento que mi madre se celebra su cumpleaños en dos fecha diferentes, una de ellas corresponde a la fecha de nacimiento real y otra fecha corresponde a la fecha en la que por 'documentos' le anotaron su fecha de nacimiento, así es que ella dice que hay que celebrarle esas dos fechas.

Otra cosa será que alguno lo celebre cuando le apetezca.

Ahora que si de celebraciones de fechas especiales se trata, más de uno debió considerar contraer matrimonio un 29 de febrero...

Puedo ser muy conveniente dejar esta celebración solo una vez cada 4 años...

:orange:

Enlace a comentario
Compartir con otras webs

Saile

Si me lo hubieras preguntado hace 20 años te diría que los 2 días y cuidado si el 28 cayera en jueves porque entonces lo celebraría 4 días.:very_drunk: En cambio ahora solo celebraría llegar al día :sorrow:

No nos entristezcamos, "que 20 años no es nada..." y si bien es cierto que según el gran Neruda: "las mismas noches que hacen blanquear los mismos árboles...nosotros, los de entonces, ya no somos los mismos", no es menos cierto que hemos ganado mucho en experiencia, humanidad y dignidad. Somos otros, sí, pero mejores.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Hola de nuevo a ambos, @daren, tu archivo lleva excesivos datos, que creo no son necesarios para la información final que buscas. Te subo otro archivo, simplificado al máximo, que, si lo he entendido bien, con esta fórmula simplificada: =CONTAR.SI('Casos de Prueba'!I:I;"OK")*('Casos de Prueba'!I1="Resultados Ciclo "&COLUMNA(A5)) se calcularía el primer dato, que se encuentra en la columna I. Copiando la fórmula a la derecha las celdas que necesites, se completaría el rango.  Tu fórmula la coloco en D7, y esta nueva en D9, que como ves (si, repito, he interpretado bien lo que buscas), da los mismos resultados. ---------------------------------------------------------------- En cuanto a: Aquí tienes, en el mismo archivo (Hoja 3) lo que devuelve tu fórmula cuando hay un determinado dato en A1 y en B2. No llego a entender qué es lo que quieres exactamente.  Tal vez con una pequeña explicación de lo que esperas obtener, sea suficiente para poner el hilo a la aguja. ? Saludos, Plantilla V3 (B).xlsx
    • buenas noches, quisiera saber si puedo mejorar mi macros que se encuentra en el evento change de la hoja de calculo de Excel, son códigos de cálculos básicos, además si me pudieran ayudar a reducir el código o darme algún tip para reducirlo yo mismo estaría muy agradecido.  de ante mano muchas gracias     Private Sub Worksheet_Change(ByVal Target As Range)     Application.ScreenUpdating = False     Application.Calculation = xlManual     Application.EnableEvents = False              If Not Intersect(Target, Range("$L$5:$Y$9")) Is Nothing Then             Sub todo()          Range("E22") = WorksheetFunction.Sum(Range("E4:E21"))     Range("E23") = WorksheetFunction.Sum(Range("E4:E19"))     Range("E24") = WorksheetFunction.Sum(Range("E23") - WorksheetFunction.Sum(Range("I4:I7")))     Range("i22") = WorksheetFunction.Sum(Range("I4:I21"))     Range("I4") = Range("E23") * 0.1     Range("I6") = Range("E23") * 0.0127     Range("I5") = Range("EN10") * Range("EN11")     Range("I7") = Range("E23") * 0.006     Range("I25") = Range("E22") - Range("I22")     Range("I12") = Range("E24") * 0.03     Range("C7") = WorksheetFunction.Sum(Range("EQ8") - (Range("EQ9"))) + Range("EN13") + Range("EN14") + Range("EN15") + Range("EN16")     'Range("E7") = WorksheetFunction.Sum(Range("C7") * ((Range("E4") * 0.0077777)))     Range("C9") = Range("EQ9") + Range("EN17") + Range("EN18") + Range("EN19")     'Range("E9") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 45) * 1.3) * 1.5) * Range("C9")     'Range("E8") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 45) * 0.3)) * (Range("C8"))     Range("E9") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 44) * 1.3) * 1.5) * Range("C9")     Range("E8") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 44) * 0.3)) * (Range("C8"))     Range("E7") = WorksheetFunction.Sum((((Range("E4") / Range("C4")) * 7) / 44) * 1.5) * Range("C7")          End Sub              End If                  Application.Calculation = xlAutomatic     Application.ScreenUpdating = True     Application.EnableEvents = True     End Sub
    • Buenas perdonad la espera adjunto el fichero Excel y explico mas detallado lo que me solicitan: Lo que me solicitan es que esos CP de la pestaña Casos de prueba los cuales tienen formulas para que cuando se copien y peguen junto a sus pasos el CP se va autoincrementando a 1,2,3 etc...., pero si copias ese CP bien solo con el primer paso o con todos sus  pasos y lo insertas entre dos CP no continua con la numeración, como se ve en la foto al hacer eso el CP insertado continua con la numeración CP2 y el de abajo pone también CP2 no se incrementa ni ese ni el valor de CU que hay a la derecha que también es incremental. Necesitaría que continuara con esa numeración aun insertándolo entre medio de 2 tanto el CP como el CU de la derecha. También me solicitan que el campo Ciclo 1 de la pestaña Resumen es auto incremental cuando copias y pegas va sumando 1, pero en las formulas referentes a Ok KO Y bloqueo al copiar y pegar se mantiene la misma formula , la idea es que cuando copies y pegues la fila donde están los ciclos se autoincremente Ciclo a 1,2,3,4 etc... y la formula de los campos OK,KO y Bloqueos se incremente también pasando de la columna I a la J  luego a la k etc... y que en Resultados Ciclo el numero de la formula también se incremente Resultados Ciclo 1 , 2 ,3 etc... que cambie la columna a la vez que el numero de Resultados Ciclo. Gracias por adelantado un saludo. Plantilla v3 Pruebas.xlsx  
    • Saludos amigos espero estén bien Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo  en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia  en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv)  ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda  "F11" es  418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13  para ver el resultado. Mucho les sabre agradecer la ayuda que me puedan brindar. PRUEBA.xlsm
    • Saludos a ambos. Copiar y pegar por sí solas, no tengo el conocimiento de que sirvan como "evento" para actualizar las referencias que buscas hacer, en la forma que lo quieres hacer, ó la fórmula como la quieres hacer. Te recomiendo abrir un tema similar en Macros, es posible que algún Maestro te de alguna idea. Por otro lado, si debe ser con funciones, entonces tendías que interactuar con COLUMNA() y FILA() para que al pegar el destino "sepa" donde está ubicado e intentar cambiar la referencia. =INDIRECTO(CARACTER(COLUMNA()+64)&FILA()) Algo como eso se podría usar para obtener el código ASCII de la letra de la columna (donde 65 es el código para “A”), y FILA() devuelve el número de la fila. La función CARACTER() convierte el código ASCII en una letra. Luego, INDIRECTO() toma la cadena resultante (por ejemplo, “A1”, “B2”, etc.) y la usa como una referencia de celda. En ese caso, una posible idea de editar tu ejemplo sería: =SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&"1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")); 0)   Enfatizo que es una idea, es muy probable que haya que editar. Así como esta su tema, la recomendación del maestro toma relevancia porque especular o deducir no es lo adecuado para intentar ayudar en este tipo de consultas. Por esta causa de mi parte por ejemplo no puedo aportar algo adicional.
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.