#want 1.1 hours from now
print join(" ",Add_Delta_DHMS(Today_and_Now, 0, 1.1, 0, 0); 
print join(" ",Add_Delta_DHMS(Today_and_Now, 0, 1, 0, 0); 
#prints the same thing!!!

##</code><code>##

sub hms
{
        my ($hours) = @_;
        my $minutes = ($hours - int($hours)) * 60;
        my $seconds = ($minutes - int($minutes)) * 60;

        return(int($hours), int($minutes), int($seconds));
}