新しく発言する EXIT インデックスへ

日数計算

　　日数計算 しばっち 2008/03/30 19:32:26 
　　└続き しばっち 2008/03/30 19:33:05
Re: 日数計算 返事を書く ノートメニュー
しばっち <dihjvcfsyu> 2008/03/30 19:33:05
続き


EXTERNAL FUNCTION DAY(ZZ)
DIM D(12), DD(12)
FOR I=1 TO 12
READ D(I)
NEXT I
DATA 0,31,59,90,120,151,181,212,243,273,304,334
FOR I=1 TO 12
READ DD(I)
NEXT I
DATA 31,28,31,30,31,30,31,31,30,31,30,31
LET YY=YEAR(ZZ)
LET MM=MONTH(ZZ)
LET YL = YY - 1
LET Z = 365 * YL + INT(YL / 4) + INT(YL / 400) - INT(YL / 100) + 1
IF MOD(YY , 4) = 0 AND MOD(YY , 100) <> 0 THEN
LET DD(2) = 29
IF MM > 2 THEN LET Z = Z + 1
END IF
IF MOD(YY , 400) = 0 THEN
LET DD(2) = 29
IF MM > 2 THEN LET Z = Z + 1
END IF
LET DAY = ZZ - (Z + D(MM)) + 1
END FUNCTION

EXTERNAL FUNCTION WEEK$(Y,M,D)
IF M<3 THEN
LET YY=Y-1
LET MM=M+12
ELSE
LET YY=Y
LET MM=M
END IF
LET ZELLER=MOD(YY+INT(YY/4)-INT(YY/100)+INT(YY/400)+INT((13*MM+8)/5)+D,7) !'ツェラーの公式
LET WEEK$=MID$("日月火水木金土",ZELLER+1,1)
END FUNCTION
 
　　　└西暦1年1月1日からの日数から西暦年月日に変... 山中和義 2008/04/01 12:02:19  (修正1回)
　　　　├!経過年月日の計算 山中和義 2008/04/01 16:09:28  (修正2回)
　　　　└!日付関連のサブルーチン 山中和義 2008/04/02 15:36:28 
　　　　　└つづき（使用例、カレンダー） 山中和義 2008/04/02 15:38:11

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。