VonDatum = cdate(InputBox(
"Bitte Datum des ersten zu betrachtenden Tages eingeben:"
,
"Datumseingabe"
, Format(Now - 1,
"DD.MM.YYYY"
)))
BisDatum = cdate(InputBox(
"Bitte Datum des letzten zu betrachtenden Tages eingeben:"
,
"Datumseingabe"
, Format(Now,
"DD.MM.YYYY 23:59:59"
)))
VonDatum = dateserial(year(VonDatum), month(VonDatum), day(VonDatum))
BisDatum = dateserial(year(BisDatum), month(BisDatum), day(BisDatum)+1)
if VonDatum <= .ReceivedTime and .ReceivedTime < BisDatum then
end if