Week.IsoWeek.from_date.week: def of bend-time-lib@0.4.0.1
Import: import bend-time-lib@0.4.0.1/week.bend as Week
Lines 10-24 of bend-time-lib@0.4.0.1/week.bend: https://jend.leeeet.dev/read.txt?path=bend-time-lib@0.4.0.1/week.bend&start_line=10&end_line=24

import Base
import bend-time-lib@0.4.0.1/date.bend as D

def IsoWeek.from_date.week(
  +d: D.Date, +year: U32, r: Result<&2, &2, D.Date.Error, D.Date>
) -> Result<&2, &2, D.Date.Error, IsoWeek>:
  match r:
    case Fail{e}:
      Fail{e}
    case Done{mon1}:
      Done{
        IsoWeek{
          year,
          U32.add(
            1, U32.div(U32.sub(D.Date.to_days(d), D.Date.to_days(mon1)), 7)
          )
        }
      }

Uses (9):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.add
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.div
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.sub
  https://jend.leeeet.dev/definition.txt?path=bend-time-lib@0.4.0.1/date.bend&name=Date
  https://jend.leeeet.dev/definition.txt?path=bend-time-lib@0.4.0.1/date.bend&name=Date.Error
  https://jend.leeeet.dev/definition.txt?path=bend-time-lib@0.4.0.1/date.bend&name=Date.to_days
  https://jend.leeeet.dev/definition.txt?path=bend-time-lib@0.4.0.1/week.bend&name=IsoWeek