Re: how to produce random dates

2008-09-21 Thread John W. Krahn
itshardtogetone wrote: - Original Message - From: "John W. Krahn" <[EMAIL PROTECTED]> use Time::Local; my $start = timegm 0,0,0,1,0,60; my $end = timegm 0,0,0,1,0,86; print scalar gmtime $start + rand $end - $start; Hi, Thanks. (1) But the above from time to time produce the fol

Re: how to produce random dates

2008-09-21 Thread John W. Krahn
Mr. Shawn H. Corey wrote: On Sat, 2008-09-20 at 03:53 -0700, John W. Krahn wrote: itshardtogetone wrote: Hi, Hello, How do I randomly produce a date between 1st Jan 1960 to 31th December 1985. It must be able to show the day month year. I only know how to produce a random number between 1960

Re: how to produce random dates

2008-09-20 Thread Mr. Shawn H. Corey
On Sat, 2008-09-20 at 03:53 -0700, John W. Krahn wrote: > itshardtogetone wrote: > > Hi, > > Hello, > > > How do I randomly produce a date between 1st Jan 1960 to 31th December > > 1985. It must be able to show the day month year. > > I only know how to produce a random number between 1960 to 198

Re: how to produce random dates

2008-09-20 Thread John W. Krahn
itshardtogetone wrote: Hi, Hello, How do I randomly produce a date between 1st Jan 1960 to 31th December 1985. It must be able to show the day month year. I only know how to produce a random number between 1960 to 1985 using rand like this : my $year = int (rand 26) + 1960; use Time::Local

how to produce random dates

2008-09-20 Thread itshardtogetone
Hi, How do I randomly produce a date between 1st Jan 1960 to 31th December 1985. It must be able to show the day month year. I only know how to produce a random number between 1960 to 1985 using rand like this : my $year = int (rand 26) + 1960; Thanks