GETDATEDIF - [日時]

GETDATEDIF

… 日付1と日付2の日数差を算出

書　　式

GETDATEDIF(日付1,日付2)
 日付1: YYYYMMDD形式の数値
 日付2: YYYYMMDD形式の数値

説　　明

日付1と日付2の日数差を算出します。月代わり、うるう月なども正しく処理されます。

日付は、YYYYMMDDの形式で数値を指定します。

注意事項

関連項目

サンプル

REM 944BASIC 'GETDATEDIF'
PRINT '今日を起点に日数を算出します'
PRINT '年月日を入力してください'
PRINT '年: ';
INPUT Y, 4, 4
PRINT '月: ';
INPUT M, 2, 4
PRINT '日: ';
INPUT D, 2, 4
IF LEN(M)=1 THEN M=STRCAT('0',M)
IF LEN(D)=1 THEN D=STRCAT('0',D)
D1=STRCAT(Y,M,D): D2=DATE
DIF=GETDATEDIF(D1,D2):REM 日数算出
MES=STRCAT(Y,'/',M,'/',D)
PRINT MES;:PRINT 'から今日まで ';:PRINT DIF;:PRINT ' 日'
KEYWAIT
END

			GETDATEDIF - [日時]