那裡有萬年曆程式(編號：7747)

那位大哥大姐，有現成萬年曆程式，要計算現在距離西元一年一月一日為多少天
(不是用任何物件)，萬年曆程式條件
1752為特殊的一年(曆法上有點兒更改)
1752之前為四年一閏
1752之9月只有19天 (1.2.14.15.......)沒有3~13號
1752以後之閏年規則為:是4的倍數，不是100的倍數而是400的倍數
ex. 1800不是閏年(100的倍數)但2000是閏年(因是400的倍數)
thk!