Hello,
Last time i wrote the module to find wensday minimum two weeks later from today. It looks like this:
Public Function WyznaczSrode(DataWystawienia As Date) As Date
Dim a As Date
Dim c As Integer
a = DataWystawienia + 14
c = Weekday(a)
Do While c <> 6
a = a + 1
c =...