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

日数計算

　　日数計算 しばっち 2008/03/30 19:32:26 
　　└続き しばっち 2008/03/30 19:33:05 
　　　└西暦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 

Re: !日付関連のサブルーチン	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/04/02 15:38:11
つづき（使用例、カレンダー） INPUT PROMPT "西暦を入力して下さい。": y1 PRINT PRINT "西暦";y1;"は、"; DayInYear(y1);"日。"; WeekInYear(y1);"週です。" FOR m1=1 TO 12 FOR d1=1 TO DayOfMonth(y1,m1) IF d1=1 THEN !月が変わったら PRINT PRINT USING "　　　####月":m1 !ヘッダー PRINT " 月 火 水 木 金 土 日" LET a=DayOfWeek(y1,m1,d1)-1 !月曜日を0とした曜日、日曜日は6 IF a<0 THEN LET a=a+7 PRINT REPEAT$(" ",a*3); !表の先頭を空ける END IF PRINT USING "###": d1; IF DayOfWeek(y1,m1,d1)=0 THEN !7日単位 PRINT ,Week(y1,m1,d1);WeekNumber(y1,m1,d1) !フッター ELSE IF d1=DayOfMonth(y1,m1) THEN !月末なら PRINT ,Week(y1,m1,d1);WeekNumber(y1,m1,d1) END IF END IF NEXT d1 NEXT m1 END

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