Anónimo
Calculo de fechas excel 2003 con fecha fija sin celda
Calcula el número de días de demora teniendo en cuenta que
La fecha de entrega debería haber sido el 01/09/2009, tengo que hacer una hoja para hoy y no sé como hacer el calculo. Ya que la fecha citada, no la puedo poner en la hoja y no se como se calcula para que me salga el numero de días de demora. Gracias
La fecha de entrega debería haber sido el 01/09/2009, tengo que hacer una hoja para hoy y no sé como hacer el calculo. Ya que la fecha citada, no la puedo poner en la hoja y no se como se calcula para que me salga el numero de días de demora. Gracias
Respuesta de paramisolo
1
Este código te dice cuantos días van de diferencia entre la fecha de hoy (mañana te dará un día menos, según cambie la fecha ira cambiando los días):
Sub contar_dias()
Dim LaFecha As Date
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj
End Sub
Te aparece una ventana donde poner la fecha hasta la que quieres calcular en tu caso 01/09/2009 y te hará la diferencia y te mostrará un mensaje con el dato, si este dato tú quieres ponerlo en alguna celda solo añadir el código de la celda y si quieres quitas el MsgBox:
Range("B5").Value = DateDiff("d", Now, LaFecha)
Sub contar_dias()
Dim LaFecha As Date
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj
End Sub
Te aparece una ventana donde poner la fecha hasta la que quieres calcular en tu caso 01/09/2009 y te hará la diferencia y te mostrará un mensaje con el dato, si este dato tú quieres ponerlo en alguna celda solo añadir el código de la celda y si quieres quitas el MsgBox:
Range("B5").Value = DateDiff("d", Now, LaFecha)