my $dt = DateTime->today;
say $dt, " = ", $dt->jd;
$dt->subtract(days => $dt->jd, hours => 12); # days implicitly truncated to int
say $dt, " = ", $dt->jd;