Sub
datumn()
Dim
datum2
Dim
i, idatum3
As
Integer
Dim
dDatum5
As
Date
j = 2
datum1 = format(Now(),
"dd.mm.yyyy"
)
datum2 = format(Application.WorksheetFunction.Min(Range(
"D1:E12"
), Sheets(
"18-85-2"
).Range(
"D1:E12"
)),
"dd.mm.yyyy"
)
datum14 = DateAdd(
"d"
, 13, datum1)
datum28 = DateAdd(
"d"
, 27, datum1)
iDatum4 = DateDiff(
"d"
, datum1, datum2)
idatum3 = iDatum4 * -1