GETDATE - [日時] |
||||||
… 指定した日付に日数を増減した日付を算出
GETDATE(日付,増減)
日付: YYYYMMDD形式の数値
増減: 数値
指定した日付に、日数を増減した日付を返します。月代わり、うるう月なども正しく処理されます。
日付は、YYYYMMDDの形式で数値を指定します。
REM 944BASIC 'GETDATE サンプル'
D=DATE
FOR I=0 TO 7
IF I=0 THEN COLORFG 255,0,0 ELSE COLORFG 0,0,0
DS=GETDATE(D,I)
LOCATE 4,10+I: GOSUB *DATESTR
DS=GETDATE(D,I*(-1))
LOCATE 4,10-I: GOSUB *DATESTR
NEXT I
KEYWAIT
END
*DATESTR
YY=LEFT(DS,4):MM=MID(DS,5,2):DD=MID(DS,7,2):W=GETWEEK(DS,2)
DS=STRCAT(YY,'年',MM,'月',DD,'日',W)
PRINT DS
RETURN
GETDATE - [日時] |