perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 30
 Click for quality!



11.02.2012 / 18:16
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragZeitrahmenüberprüfung mit Perl
 Seitenanfang
Hallo,

ich habe ein Logikproblem und hänge damit schon den ganzen Morgen fest. Ich möchte mit Perl feststellen, ob sich eine Uhrzeit (Stunde) in einem gewissen Rahmen befindet. Dieser wird vorgegeben durch "VON (h)" - "BIS (h)". Soweit so gut...
Mein Problem ist jetzt, wenn die "VON" zeit grösser ist als die "BIS" zeit. Wie kann ich das fesststellen?
hat jemand eine Idee...

ID VON (h) BIS (h)
1 7 22
2 6 1
3 9 17
4 7 22
5 6 0

das hab ich bis jetzt hinbekommen, aber z.b. bei id 2 stimmt es nicht.


sub UeberpruefeZeitrahmen () {
	my ($pSelf) = @_;
	my $pZeit = 8;
	if ( $pSelf->{'ZEIT_VON'} < $pSelf->{'ZEIT_BIS'} ) {
	        ( $pZeit >= $pSelf->{'ZEIT_VON'} && $pZeit < $pSelf->{'ZEIT_BIS'} ) ? return 1 : return 0;
	} else {
	        if ( $pSelf->{'ZEIT_BIS'} == 0 ) {
	                $pSelf->{'ZEIT_BIS'} = 24;
	                ( $pZeit >= $pSelf->{'ZEIT_VON'} && $pZeit < $pSelf->{'ZEIT_BIS'} ) ? return 1 : return 0;
	        } else {
	                ( $pZeit < $pSelf->{'ZEIT_VON'} && $pZeit >= $pSelf->{'ZEIT_BIS'} ) ? return 1 : return 0;
	        }
	}
}

danke für eure bemühungen.

mfg

Datum: 06.12.2005-08:42
Beitragre: Zeitrahmenüberprüfung mit Perl
 Seitenanfang
Hallo,

ich hab mal eine Raumreservierung programmiert, vielleicht hift Dir der select ja weiter bei dem ich die Verfügbarkeit überprüfe.


	$sth	= $dbh->prepare(" SELECT id FROM $tab WHERE 
					 (raum 		= '$raum' 		AND date 		= '$date' 		AND id != '$id')	AND
					((zeit_von 	= '$zeit_von' 	AND zeit_bis 	= '$zeit_bis')	OR
					 (zeit_von 	> '$zeit_von' 	AND zeit_von 	< '$zeit_bis') 	OR 
					 (zeit_von 	< '$zeit_von' 	AND zeit_bis 	> '$zeit_bis') 	OR 
					 (zeit_bis 	> '$zeit_von' 	AND zeit_bis 	< '$zeit_bis')	OR
					 
 					 (zeit_von 	= '$zeit_von' 	AND zeit_von 	< '$zeit_bis')	OR
					 (zeit_bis 	= '$zeit_bis' 	AND zeit_bis 	> '$zeit_von')	OR
					 
					 (zeit_von 	> '$zeit_von' 	AND zeit_bis 	< '$zeit_bis'))") 	|| 
			          die "Fehler: $DBI::errstr";

Datum: 06.12.2005-10:19
Beitragre: Zeitrahmenüberprüfung mit Perl
 Seitenanfang
danke, habs jetzt hinbekommen... war eigentlich ganz simpel :S


sub UeberpruefeZeitrahmen () {
        my ($pSelf) = @_;
        my $pZeit = 23;
        if ( $pSelf->{'ZEIT_VON'} < $pSelf->{'ZEIT_BIS'} ) {
                ( $pZeit >= $pSelf->{'ZEIT_VON'} && $pZeit < $pSelf->{'ZEIT_BIS'} ) ? return 1 : return 0;
        } else {
                ( $pZeit < $pSelf->{'ZEIT_BIS'} || $pZeit >= $pSelf->{'ZEIT_VON'} ) ? return 1 : return 0;
        }
}

Datum: 06.12.2005-10:30
-






-
 -