VIr.PayDate recalculation