Código Delphi [-]uses DateUtils ... if IsPM (now) then Button1.Caption:= 'Registrar la Entrada de la Tarde' else Button1.Caption:= 'Registrar la Entrada de la Mañana';
uses DateUtils ... if IsPM (now) then Button1.Caption:= 'Registrar la Entrada de la Tarde' else Button1.Caption:= 'Registrar la Entrada de la Mañana';