Cathy,

Would a Macro do?

If so then with Column D formatted as Currency and Column E formatted as
Time try:

Option Explicit
Sub MaxPerDay()
   Dim R As Long
   Dim x As Long
   Dim D As Double
   Dim MaxVal As Double
   Dim MaxHour As String

   Application.ScreenUpdating = False
   D = Cells(1, 1).Value2

   R = Cells(Rows.Count, 1).End(xlUp).Row

   MaxVal = Cells(1, 3).Value

   For x = 1 To R
       If Cells(x, 1).Value2 = D Then
           If Cells(x, 3).Value > MaxVal Then
               MaxVal = Cells(x, 3).Value
                   MaxHour = Cells(x, 2).Value

           End If

        End If

           If Cells(x, 1).Value2 <> D Then
               Cells(x - 1, 4).Value = MaxVal
                   Cells(x - 1, 5).Value2 = MaxHour
                       D = Cells(x, 1).Value2
                           MaxVal = Cells(x, 3).Value
                               MaxHour = Cells(x, 2).Value
                                   D = Cells(x, 1).Value2

           End If

   Next x

   Cells(R, 4).Value = MaxVal
   Cells(R, 5).Value2 = MaxHour
   Application.ScreenUpdating = True

End Sub