Visual Basic - Contar dias que faltan para cumpleaño, vb

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 32 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Contar dias que faltan para cumpleaño, vb

Publicado por Hernan (3 intervenciones) el 27/06/2019 00:34:27
Hola, quiero que al seleccionar una fecha me diga con un msgbox los dias que faltan, solo los dias, si el usuario pone la fecha de su cumpleaños que le salte un mensaje diciendo

Faltan tantos dias para tu cumpleaños
o Faltan tantos dias para esa fecha, gracias

https://www.lawebdelprogramador.com/usr/tmp/5d13f23272016_th-Screenshot_3.png
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.957
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Contar dias que faltan para cumpleaño, vb

Publicado por Andres Leonardo (1710 intervenciones) el 27/06/2019 00:48:33
Primero deberias ver como vas a capturar la fecha de nacimiento
luego vas a reemplazar el año por le actual por lo qque la fecha del cumple seria como la que esta en el codigo el resto solo es presentar....
luevgo puedes validar que si ya paso le aumentes uno al año y listo .

1
2
3
4
5
Dim fechaCumple As Date
fechaCumple = "2019/08/05"
If fechaCumple > Date Then
    MsgBox "Faltan " & fechaCumple - Date & " Dias para mi cumple "
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de MarioJoaquin
Val: 18
Ha aumentado su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Contar dias que faltan para cumpleaño, vb

Publicado por MarioJoaquin (10 intervenciones) el 27/06/2019 23:53:15
Y como se haria la macro como si fuera una formula? tomando como base que en una celda se coloque la fecha de nacimiento y en otra la fecha del día?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.957
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Contar dias que faltan para cumpleaño, vb

Publicado por Andres Leonardo (1710 intervenciones) el 28/06/2019 15:37:59
Buenos dias...

1
2
3
4
5
Dim fechaCumple As Date
' suponiendo que A2 esta la fecha de tu cumpleaños este año
If range("A2").value  > range("b2").value Then 'suponiendo que en B2 esta la fecha de hoy
    MsgBox "Faltan " & range("A2").value  - range("b2").value & " Dias para mi cumple "
End If

si es una formula seria algo ais como A2-B2

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de MarioJoaquin
Val: 18
Ha aumentado su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Contar dias que faltan para cumpleaño, vb

Publicado por MarioJoaquin (10 intervenciones) el 28/06/2019 16:20:16
Muchas gracias por su ayuda...
saludos,

Mario Joaquín
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar