on bfaa358 help sign in
38 lines 659 B history raw
1### `++year`
3Accept a parsed date of form `[[a=? y=@ud] m=@ud t=tarp]` and produce
4its `@d`representation.
6Accepts
7-------
9`det` is a `++date`
11Produces
12--------
14A `@d`.
16Source
17------
19 ++ year :: date to @d
20 |= det/date
21 ^- @da
22 =+ ^= yer
23 ?: a.det
24 (add 292.277.024.400 y.det)
25 (sub 292.277.024.400 (dec y.det))
26 =+ day=(yawn yer m.det d.t.det)
27 (yule day h.t.det m.t.det s.t.det f.t.det)
28 ::
30Examples
31--------
33 ~zod/try=> (year [[a=%.y y=2.014] m=8 t=[d=4 h=20 m=4 s=57 f=~[0xd940]]])
34 0x8000000d227df4e9d940000000000000
38***