Excel - Header and Footer

Vba

See Formatting and VBA Codes for Headers and Footers

Sub Date_Time() 
 ActiveSheet.PageSetup.CenterHeader = "&D &B&ITime:&I&B&T" 
End Sub