検索結果のコピペはできないのか?
リンク先の内容は以下の通りです。
#module
#defcfunc mjd int yy,int mm,int dd
if mm<3 :mm_=mm+12: yy_=yy-1:else:mm_=mm:yy_=yy
md= 0.0+int(365.25 *yy_) +int(yy_/400) -int(yy_/100) +int(30.59*(mm_-2))+dd -678912
return md
#global
screen 0,250,200
pos 60,
mes "yyyy mm dd"
objsize 30,20
pos 60,20
input yy1,,,4:in(0)=stat
input yy2,,,4:in(1)=stat
pos 100,20
input mm1,,,2:in(2)=stat
input mm2,,,2:in(3)=stat
pos 140,20
input dd1,,,2:in(4)=stat
input dd2,,,2:in(5)=stat
pos 60
objsize 110,20
input dummy,,,10:in(6)=stat
button "計算(C=B-A)",*calc
button "クリア",*clear
pos 45,23
mes "A\nB\nC"
*clear
repeat 7
objprm in(cnt),""
loop
stop
*calc
A=mjd(yy1,mm1,dd1)
B=mjd(yy2,mm2,dd2)
C=int(B-A)
objprm in(6),C
stop