parse-timestamp ( byte-array -- timestamp )

Vocabulary

dbf

Inputs

byte-array

an object

Outputs

timestamp

an object

Definition

USING: calendar endian kernel sequences ;

IN: dbf

: parse-timestamp ( byte-array -- timestamp )
    [ -4713 1 1 <date> ] dip 4 cut [ le> ] bi@
    [ days time+ ] [ milliseconds time+ ] bi* ;