Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zeitbereich prüfen (https://www.delphipraxis.net/99380-zeitbereich-pruefen.html)

Strahlex 11. Sep 2007 13:21


Zeitbereich prüfen
 
:?: Wie kann ich prüfen ob eine Zeit in einem Zeitbereich ist (z.B.: 8:00 - 8:50)? :?:

mkinzler 11. Sep 2007 13:25

Re: Zeitbereich prüfen
 
Vergleiche sie doch mit Zeitwerten

Delphi-Quellcode:
if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

Strahlex 11. Sep 2007 14:14

Re: Zeitbereich prüfen
 
Zitat:

Zitat von mkinzler
Vergleiche sie doch mit Zeitwerten

Delphi-Quellcode:
if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

das funktioniert leider nicht :cry: ,

aber ich habe andere Lösung gefunden :!:

Delphi-Quellcode:
 time:=strtoint(formatdatetime('hmm',Now));
if (time >= 955) and (time <= 1045) then

Tormentor32 11. Sep 2007 14:18

Re: Zeitbereich prüfen
 
Zitat:

Zitat von Strahlex
Zitat:

Zitat von mkinzler
Vergleiche sie doch mit Zeitwerten

Delphi-Quellcode:
if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

das funktioniert leider nicht :cry: ,

Wieso nicht? Was kriegst du für einen Fehler?
Zitat:

Zitat von Strahlex

aber ich habe andere Lösung gefunden :!:

Delphi-Quellcode:
 time:=strtoint(formatdatetime('hmm',Now));
if (time >= 955) and (time <= 1045) then

Ist doch irgendwie doof die zeit in einen String und dann in einen Integer zu konvertieren :gruebel:

pstruh 11. Sep 2007 14:21

Re: Zeitbereich prüfen
 
Ist vielleicht "EncodeTime" gemeint?!

mkinzler 11. Sep 2007 14:26

Re: Zeitbereich prüfen
 
Wäre ne Alternative

negaH 11. Sep 2007 14:32

Re: Zeitbereich prüfen
 
Delphi-Quellcode:
var
  Zeit: Integer;
begin
  Zeit := Trunc(Frac(Now) * 1440);
  if (Zeit >= 8*60) and (Zeit < (8*60+50)) then ;
end;
Der Umweg über Strings ist unnötig.

Gruß Hagen


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz