REM ************************************************
REM 日付表現の経過日数を取得
REM ************************************************
Function DateSub( vDate2, vDate1 )
vDate2 = DateValue( vDate2 & "" )
vDate1 = DateValue( vDate1 & "" )
DateSub = CLng( vDate2 ) - CLng( vDate1 )
End function
|