Hi,
thanks, it working very well.
Damien
-- Initial Header ---
From : news <[EMAIL PROTECTED]>
To : [EMAIL PROTECTED]
Cc :
Date : Fri, 10 Oct 2003 19:17:39 +0200
Subject : Re: working on time
On Fri, 10 Oct 2003 12:13:45 -0400, Bill Akins
--On Monday, October 13, 2003 1:34 PM -0700 Jorge Barrios
<[EMAIL PROTECTED]> wrote:
[EMAIL PROTECTED] (Mark Lobue) writes:
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
>
> It's fair enough to use 86,400 sec in a day. But what about
> adding days or
Adding days is simply adding multiple
[EMAIL PROTECTED] (Mark Lobue) writes:
> > -Original Message-
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> > Sent: Saturday, October 11, 2003 10:19 PM
> > To: [EMAIL PROTECTED]
> > Subject: RE: working on time
> >
> >
> > It
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Saturday, October 11, 2003 10:19 PM
> To: [EMAIL PROTECTED]
> Subject: RE: working on time
>
>
> It's fair enough to use 86,400 sec in a day. But what about
> adding days
It's fair enough to use 86,400 sec in a day. But what about adding days or
months?
That is, rolling past 28,29,30 or 31 days in a particular month.
thanks
-rkl
---
> I thought of that right after hitting send...
>
> This may be better if he wants to do a lot of date manipulation down the
> road:
On Fri, 10 Oct 2003 12:13:45 -0400, Bill Akins wrote:
> Try this:
> #!/usr/bin/perl -w
>
> my @now = localtime;
> my $sec = ( $now[0] );
> my $min = ( $now[1] );
> my $hr = ( $now[2] );
> my $day = ( $now[3] );
> my $mth = ( $now[4] + 1 );
> my $yr = ( $now[5] + 1900
I thought of that right after hitting send...
This may be better if he wants to do a lot of date manipulation down the road:
#!/usr/bin/perl -w
use Date::Manip;
my ($day, $mnth, $yr);
my $date = DateCalc("today","- 1day");
($yr, $mnth, $day) = ($date =~ /(\d\d\d\d)(\d\d)(\d\d)/);
print "Yes
On Fri, 10 Oct 2003 14:57:47 +0200,
[EMAIL PROTECTED] wrote:
> i search hiw can i work on time.
> i want to get day number and make -1
Check out the heap of Date-related modules on http://www.cpan.org/.
--
Tore Aursand <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addi
Bill Akins wrote:
> ...
> Try this:
> #!/usr/bin/perl -w
>
> my @now = localtime;
> my $sec = ( $now[0] );
> my $min = ( $now[1] );
> my $hr = ( $now[2] );
> my $day = ( $now[3] );
> my $mth = ( $now[4] + 1 );
> my $yr = ( $now[5] + 1900 );
>
> $day = ($day -1);
> pr
Bill Akins
SSS III
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]>>> "[EMAIL PROTECTED]" 10/10/03 08:57AM >>>
>Hi,
>i search hiw can i work on time.
>i want to get day number and make -1
Try this:
#!/usr/bin/perl -w
my @now = localtime;
my $sec = ( $now
Hi,
i search hiw can i work on time.
i want to get day number and make -1
Regards,
Damien
** L'ADSL A 20 EUR/MOIS**
Avec Tiscali, l'ADSL est à 20 EUR/mois. Vous pourrez chercher longtemps avant de
trouver moins cher !
Pour profiter de cette offre exceptionnelle, cliquez ici :
11 matches
Mail list logo