my $dt = DateTime->new(year=>$pYear, month=>$pMonth, day=>$pDay, millisecond=>$pStart, time_zone=>$tZone);