Help for this page
#! /usr/bin/perl use warnings; use strict; ... $dt->add(hours => 24 * ($jd_to_convert - $days)); say "date is $dt"; }
date is 2015-07-01T14:13:31 date1 is 1 ... date is 2015-07-01T14:23:20 date3 is 1 dur is 0