He definido las variables finicio
y ffin
como Date
para guardar fechas introducidas con dos inputbox. ffin
se mantiene como Date pero finicio
se convierte a String
. Las dos variables reciben exactamente el mismo trato.
Forzando la conversión a Date con CDate(finicio)
sí funciona pero me gustaría saber por qué esta ocurriendo esto...
Sub CalculadoraAños()
Sheets("Calculadora").Activate
Dim fn, fMax, fMin, finicio, ffin As Date
'Fecha actual
fn = Date
Range("D4") = fn
'Fecha maxima
fMax = DateAdd("m", -1, fn)
Range("D6") = fMax
'Fecha minima
fMin = DateAdd("yyyy", -5, fn)
Range("D5") = fMin
'Fecha inicio
finicio = InputBox("Pega la fecha de inicio: ")
Range("D7") = finicio
'Fecha fin
ffin = InputBox("Pega la fecha de fin: ")
Range("D8") = ffin
End Sub