VB Code:
  1. If Time < "06:30:00" Then

  2.  
  3.   Label1.Caption = (Format(Now - 1, "dd/mm/YYYY"))

  4.   

  5. Else

  6.  
  7.   Label1.Caption = (Format(Now, "dd/mm/YYYY"))

  8.   

  9. End If