View Single Post
  #9 (permalink)  
Old March 15th, 2007, 10:52 AM
crmpicco crmpicco is offline
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default

Code:
#!/usr/bin/perl

use strict;
use Date::Calc;

my @picco = (1981, 6, 16);      # 16 Jun 1981
my @gill  = (1973, 1, 18);      # 18 Jan 1973
$difference = Delta_Days(@picco, @gill);
print "There were $difference days between Picco and Gill\n";
superb...

www.crmpicco.co.uk
www.ie7.com