isPM
Gibt an, ob der angegebene TDateTime-Wert eine nach dem Mittag liegende Zeit angibt.
isAM
Gibt an, ob der Zeitanteil eines angegebenen TDateTime-Wertes in den Vormittag fällt.
IsAM gibt True zurück, wenn der Zeitanteil von AValue in den Zeitraum nach 00:00 (Mitternacht) und vor 12:00 (Mittag) fällt.
IsAM wird um Mitternacht true.
IsPM gibt true zurück, wenn der Zeitanteil in AValue bei oder nach 12:00 Uhr und vor 24:00 Uhrliegt.
IsPM wird um Mitternacht false.
http://docwiki.embarcadero.com/Libra...DateUtils.IsPM
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject); //oder Timer
var
DateTime: TDateTime;
begin
DateTime := Date + Time;
{ Verify if the time portion of the TDateTime variable occurs after noon }
if IsPM(DateTime) then
ShowMessage('It is after-noon')
else
ShowMessage('It is morning');
...
oder:
Delphi-Quellcode:
function IsAM(const D: TDateTime): Boolean;
begin
Result := TimePart(D) < 0.5;
end;
function IsPM(const D: TDateTime): Boolean;
begin
Result := TimePart(D) >= 0.5;
end;
function IsNoon(const D: TDateTime): Boolean;
var T : Double;
begin
T := TimePart(D);
Result := (T >= 0.5) and (T < 0.5 + OneMillisecond);
end;
function IsMidnight(const D: TDateTime): Boolean;
begin
Result := TimePart(D) < OneMillisecond;
end;