Changes for issue #116

GBM/Forms/frmSessions.vb

@@ -57,8 +57,13 @@ Public Class frmSessions
     Private Sub ResetFilterFields()
         Dim dtMinDate As DateTime = mgrSessions.GetMinimumDateTime
         Dim dtMaxDate As DateTime = mgrSessions.GetMaximumDateTime
+        Dim dtRecent As DateTime = dtMaxDate.Subtract(TimeSpan.FromDays(7))
         Dim sDateTimeFormat = CultureInfo.CurrentCulture.DateTimeFormat.ShortDatePattern & " " & CultureInfo.CurrentCulture.DateTimeFormat.LongTimePattern
 
+        If dtRecent < dtMinDate Then
+            dtRecent = dtMinDate
+        End If
+
         bInitFinished = False
 
         'Init Date Fields
@@ -75,7 +80,7 @@ Public Class frmSessions
             dtpEnd.MaxDate = dtMaxDate
         End If
 
-        dtpStart.Value = dtMinDate
+        dtpStart.Value = dtRecent
         dtpEnd.Value = dtMaxDate
 
         'Init Text Filter