No.0 [ふんすけ]さんが作品を評価しました( 技術 アイデア ) - 2020/12/13 00:59:25
簡素な作りですが、曜日を正しく表示してくれて良かったと思います。そして、存在しない年月日を入力してしまい申し訳ございませんでした。
**** 追記 **** 申し訳ないのですが、ケチをつけます。グレゴリオ暦が制定された1582年10月15日の曜日が間違っているようです。その日は金曜日とされているのですが、木曜日と表示されます。 例えば、フェアフィールドの公式を使って以下のように書けるかもしれません。ご検討のほどよろしくお願いいたします。
#include \"hspmath.as\"
sdim week, 2, 7 week = \"日\", \"月\", \"火\", \"水\", \"木\", \"金\", \"土\"
iy = 1582 im = 10 id = 15
if im == 1 or im == 2 : iy-- : im+=12
y = double(iy) m = double(im) d = double(id)
h = (365*y + floor(y/4) - floor(y/100) + floor(y/400) + floor(306*(m+1)/10) + d - 428) \\ 7 if h<0 : h+=7
mes week(h)
|