さらに訂正 連投ごめんなさい IF BD<0 THEN BD=0 を追加してください