Thanks for teaching me this, it remind me now. BTW, how do we do this in perl

$today = timelocal(localtime);
my $lastaction = &date_to_unix($datestamp);
sub date_to_unix()
{
    my ($year,$mon,$day,$hour,$min,$sec) =
        $_[0] =~ /(\d+)\/(\d+)\/(\d+)\s(\d+):(\d+):(\d+)/;
    return undef unless ($day and $mon and $year);
    return timelocal(0,$min,$hour,$day,$mon-1,$year-1900);
}

$duration = ($today - $lastaction)/3600;
[download]

How do i get $duration in hours only like 6 hrs instead of 6.6565656657 (6.6 is okay, i can live with 6) I know we have something to ignore remainder but i cannot find it in google :-) Thanks again. == It work now, i used this code

$durationTemp = ($today - $lastaction) / 3600;
$duration=sprintf("%d",$durationTemp);
[download]

Thanks