q中具有千年日期的函数

Question

我已经在q中构建了一个函数，这样我就可以看到两个日期之间的每月的第1天有多少个

\W 1 f3:{[sd;ed] count distinct `week$(sd + til 1 + ed - sd) where (`dd$distinct `week$sd + til 1 + ed - sd)=01}

如何使用2000年以前的日期进行编辑？我可以在负日期前后放置一个模数吗？还是会使我的功能不正确？

Answer 1

您也可以尝试以下方法：

    q) f:{sum 1=mod[`date$a[1] + til 1+(-). a:(0;1<`dd$x)+`month$(y;x);7]}
    q) f[2018.01.01;2018.12.31]  / 2
    q) f[1998.01.02;1999.12.31]  / 4