Messenger, Ueberstunden

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -486,6 +486,14 @@ Public Class cMessenger
         End Function
 
 
+        Public Function SetOldChatsInactiv(olderthan As Integer) As Boolean
+
+            Dim dateBack = If(olderthan <> "", CDate(Now.AddDays(olderthan * -1)), CDate(Now.AddDays(30 * -1)))
+            Dim sqlstr = " Update [tblMessenger_Chat] set [chat_aktiv] = 0 WHERE chat_aktiv = 1 and  chat_lastMsg <=" & dateBack
+            Return SQL.doSQL(sqlstr, "ADMIN")
+        End Function
+
+
     End Class
 
     Public Class cMessenger_ChatMembers