Public Function getNextFriday() getNextFriday = Date While Format(getNextFriday, "w") <> 6 getNextFriday = getNextFriday + 1 Wend End Function Public Function getNextSunday() getNextSunday = Date While Format(getNextSunday, "w") <> 1 getNextSunday = getNextSunday + 1 Wend End Function
hab mich eben an hurz's vorschlag orientiert