' Return a date starting on the day ' expT1 Date Public Shared Function GetDateDayStart(ByVal tdDate As Date) As Date Return DateTime.Parse(Format(tdDate, "dd/MM/yyyy 00:00:00")) End Function ' Return a date ending on the day ' expT1 Date Public Shared Function GetDateDayEnd(ByVal tdDate As Date) As Date Return DateTime.Parse(Format(tdDate, "dd/MM/yyyy 23:59:59")) End Function