Código Delphi [-]if frac(now) > 0.5 Then ShowMessage('Buenas tardes') else ShowMessage('Buenos Dias');
if frac(now) > 0.5 Then ShowMessage('Buenas tardes') else ShowMessage('Buenos Dias');