fn increment_ledger_time_up_to(ledger: &Ledger, blockdate: BlockDate) -> Ledger