edgararuiz / gregorian Goto Github PK

Hi Edgar,

I think I found an issue with taking the difference between between BCE dates.

In the example below I was expecting ~21 days as the difference between dates-but it looks like it's summing to 40. It might be adding the 10 offset in January with the 30 day difference between.

begin_date <- gregorian::as_gregorian("-800-01-10")
end_date <- gregorian::as_gregorian("-800-02-01")
date_diff <- gregorian::diff_days(end_date, begin_date)
print(date_diff)

Changing January 10th to January 1st will give a more expected value 31.

begin_date <- gregorian::as_gregorian("-800-01-1")
end_date <- gregorian::as_gregorian("-800-02-01")
date_diff <- gregorian::diff_days(end_date, begin_date)
print(date_diff)