keok respondió:
Supongo que habrá varias formas de conseguirlo, pero ahora mismo a mi se me ocurre esta, a ver que tal te parece: Dim i As Integer Dim a As Date a = TUFECHAORIGEN For i = 1 To 7 If Format(a, "dddd") <> "viernes" Then a = a + 1 Else a = a + 3 End If...