sieht einer hier duch??

[C.Andrä]

Könnte mir wieder mal einer helfen?? Ich sehe in diesen Abschnitt überhaupt nicht durch. Ich kann es nicht nachvollziehen was der Programmierer sich da bei gedacht hat.

Seht ihr hier durch??? Das if ist ja klar aber was er macht wenn if war

DayNow=Now

DayOfWeekDelete = 7 'Samstag
NumberOfWeekDelete = 3 ' 3te Woche im Monat

If (Day(DayNow)\7 = NumberOfWeekDelete And Weekday(DayNow) = DayOfWeekDelete)  then
  'geändert 14.12.04 ??
  'call Message(1,0,"AditoExchange","FullDelete Exchange","")
  'ende
     sSQL="select * from """&strURL_Full&""""
     sSQL=sSQL & " WHERE "
     sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"

'strSqlSource = strSqlSource
 Else
  'geändert 14.12.04 ???
  'call Message(1,0,"AditoExchange","PartDelete Exchange","")
     sSQL="select * from """&strURL_Full&""""
     sSQL=sSQL & " WHERE "
     sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"
     sSQL=sSQL & " AND ( "
     sSQL=sSQL & WHEREAID
     sSQL=sSQL & " ) "
     'strSqlSource = strSqlSource & " AND ( ( FDatumEdit between DATEADD(day, -32, getdate()) and  getdate() ) OR ( ADatumEdit between DATEADD(day, -32, getdate()) and  getdate() ) OR ( MDatumEdit between DATEADD(day, -32, getdate()) and  getdate() ) OR ( FDatumNeu between DATEADD(day, -32, getdate()) and  getdate() ) OR ( ADatumNeu between DATEADD(day, -32, getdate()) and  getdate() ) )"
 end If