This commit is contained in:
2024-03-07 14:25:31 +01:00
parent 25d5767574
commit dee2b8af48
2 changed files with 3 additions and 3 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.8.4")>
<Assembly: AssemblyFileVersion("1.2.8.4")>
<Assembly: AssemblyVersion("1.2.8.5")>
<Assembly: AssemblyFileVersion("1.2.8.5")>

View File

@@ -486,7 +486,7 @@ Public Class cMessenger
End Function
Public Function SetOldChatsInactiv(olderthan As Integer) As Boolean
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