Zeitbereich prüfen

**Strahlex**

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

**mkinzler**

Vergleiche sie doch mit Zeitwerten

if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

**Strahlex**

Zitat von mkinzler:

Vergleiche sie doch mit Zeitwerten

if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

das funktioniert leider nicht

,

aber ich habe andere Lösung gefunden

Delphi-Quellcode:

			 time:=strtoint(formatdatetime('hmm',Now));

if (time  >= 955) and (time <= 1045)  then

**Tormentor32**

Zitat von Strahlex:

Zitat von mkinzler:

Vergleiche sie doch mit Zeitwerten

if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>)

das funktioniert leider nicht

,

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

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

Ist vielleicht "EncodeTime" gemeint?!

**mkinzler**

Wäre ne Alternative

**negaH**

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

Strahlex Registriert seit: 30. Jun 2007 87 Beiträge Delphi 2005 Personal	#1 Zeitbereich prüfen 11. Sep 2007, 13:21 Wie kann ich prüfen ob eine Zeit in einem Zeitbereich ist (z.B.: 8:00 - 8:50)?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Zeitbereich prüfen 11. Sep 2007, 13:25 Vergleiche sie doch mit Zeitwerten if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>) Markus Kinzler
	Zitat

Strahlex Registriert seit: 30. Jun 2007 87 Beiträge Delphi 2005 Personal	#3 Re: Zeitbereich prüfen 11. Sep 2007, 14:14 Zitat von mkinzler: Vergleiche sie doch mit Zeitwerten if ( Zeitwert>= <untere Grenze>) and ( Zeitwert <= <obere grenze>) das funktioniert leider nicht , aber ich habe andere Lösung gefunden markieren Delphi-Quellcode: time:=strtoint(formatdatetime('hmm',Now)); if (time >= 955) and (time <= 1045) then
	Zitat

pstruh (Gast) n/a Beiträge	#5 Re: Zeitbereich prüfen 11. Sep 2007, 14:21 Ist vielleicht "EncodeTime" gemeint?!
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#6 Re: Zeitbereich prüfen 11. Sep 2007, 14:26 Wäre ne Alternative Markus Kinzler
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#7 Re: Zeitbereich prüfen 11. Sep 2007, 14:32 markieren Delphi-Quellcode: var Zeit: Integer; begin Zeit := Trunc(Frac(Now) * 1440); if (Zeit >= 860) and (Zeit < (860+50)) then ; end; Der Umweg über Strings ist unnötig. Gruß Hagen
	Zitat