Testa se a hora é antes de Meio dia
Compartilhe :

Função que testa se a hora é antes de Meio dia

function IsAM: Boolean;
begin
Result := Frac(Time) > 0.5
end;


Compartilhe :

Posts Similares