Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6461[/thread]

Floor auch für Minuswerte? (Seite 2)



<< |< 1 2 >| >> 14 Einträge, 2 Seiten
Dubu
 2004-08-06 12:26
#85389 #85389
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Ups, sorry fuer den Fehler.

Code: (dl )
1
2
3
4
5
6
7
sub clock {
   my $minutes = shift;
   my $sign = ($minutes >= 0);
   my $hh = abs int($minutes/60);
   my $rest = abs($minutes) - $hh*60;
   return sprintf ("%s%d:%02d", ($sign ? '' : '-'), $hh, $rest);
}
esskar
 2004-08-06 14:38
#85390 #85390
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=renee,06.08.2004, 07:33]Damit besteht aber immer noch das Problem -60 < $minutes < 0
Beispiel -42 ergibt bei Dir 0:42[/quote]
wer lesen kann ist klar im vorteil
Crian
 2004-08-06 14:46
#85391 #85391
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Ich hab gerade dashier in einem meiner Module gefunden:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
sub zeit_zu_minuten ($) {
# -----------------------------------------------------------------------------
# sub          : z e i t _ z u _ m i n u t e n
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Macht aus einer Zeit der Form 9:30 Minuten seit Mitternacht.
# Parameter    : Zeit
# Rückgabewert : Anzahl Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------

    my ($h, $m) = split(/:/, $_[0], 2);
    return 0 unless defined($h) and defined($m);
    return 60*$h + $m;
} # sub zeit_zu_minuten


sub min_zu_hmin ($) {
# -----------------------------------------------------------------------------
# sub          : m i n _ z u _ h m i n
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Wandelt Minuten in Stunden:Minuten (150 -> 2:30)
# Parameter    : Minuten
# Rückgabewert : Stunden:Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------

    my $min  =  $_[0];
    my $vorz =  ($min<0?"-":"");
    $min     *= -1 if $min < 0;
    my $h    =  int($min/60);
    my $m    =  $min - $h*60;
    my $r    =  "$vorz$h:" . ($m<10?"0":"") . "$m";
    return $r;
} # sub min_zu_hmin


Ist wie man sieht schon etwas älter und passt vielleicht nicht 100%ig.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
silbersteine
 2004-08-07 01:34
#85392 #85392
User since
2003-08-18
27 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hi,

sieht ja ziemlich ähnlich aus ... Jedenfalls funktioniert Dubus letzter Code jetzt einwandfrei. Vielen Dank! Diese Zahlenrechnereien sind wohl einfach nicht mein Ding ...
Viele Grüße aus Calberlah

Der SilberStein

<a href="http://www.skriptoase.de/">www.skriptoase.de</a>

# "It's all very perlish" (L.Wall)
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2004-08-05 02:03.