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 06:06 Uhr.

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