From b1e6e7a9e672e3644ab8b6930124bf4537e90b85 Mon Sep 17 00:00:00 2001
From: MikeMaximus <mseiferling@gmail.com>
Date: Wed, 27 Dec 2017 16:23:50 -0600
Subject: [PATCH] Changes for issue #116

---
 GBM/Forms/frmSessions.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/GBM/Forms/frmSessions.vb b/GBM/Forms/frmSessions.vb
index df6af55..39bde13 100644
--- a/GBM/Forms/frmSessions.vb
+++ b/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