parse-date ( byte-array -- date/f )

Vocabulary

dbf

Inputs

byte-array

an object

Outputs

date/f

an object

Definition

USING: calendar calendar.parser io.encodings.binary
io.streams.byte-array kernel sequences ;

IN: dbf

: parse-date ( byte-array -- date/f )
    dup [ " \0" member? ] all?
    [ drop f ]
    [ binary [ read-ymd <date-gmt> ] with-byte-reader ] if ;