in reply to Date and Time

Yeah, SuperCruncher and others are right, I should have investigated further. Sorry for seeming lazy (maybe I was :-)), but here's my code:
(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,
+my $isdst)=localtime(time);

my $month1 = $mon+1;

my $year1 = $year+1900;

if ($mday == 1 && $month1 == 2) {
$mday = 28;
}
elsif ($mday == 1 && $month1 == 4) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 6) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 9) {
$mday = 30;
}
elsif ($mday == 1 && $month1 == 11) {
$mday = 30;
}
else {
$mday--;
}

my $date1 = "$month1\/$mday\/$year1";

[download]


Just Another Perl Wannabe

Replies are listed 'Best First'.
Re: Re: Date and Time
by DamnDirtyApe (Curate) on Dec 03, 2002 at 02:12 UTC

    Your adjustments are not necessary here. Assuming the only issue here is the time zone difference, try consolidating your code into something like the following:

    my $server_tz =  0 ; # GMT
my $client_tz = -8 ; # PST
my $offset    = $client_tz - $server_tz ;

my @t = localtime( time + ( $offset * 3600 ) ) ;

my $date = sprintf "%d/%d/%d", $t[4] + 1, $t[3], $t[5] + 1900 ;

    [download]

    _______________
    DamnDirtyApe 
    Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.

            --Friedrich Nietzsche
[reply]
[d/l]

In Section Seekers of Perl Wisdom