Sub Macro4() '29 meses y 7 semanas Año = 2015 Mes = 1 Día = 1 ' MaFecha = DateSerial(Año, Mes, Día) MsgBox MaFecha MaFecha = DateSerial(Año, Mes + 29, Día + (7 * 7)) MsgBox MaFecha End Sub