如何在球拍中将sql-timestamp转换为string？

Question

我想出的最接近的方法是查看文档

(define (sql-datetime->rfc2822 datetime)
  (let ([dt (sql-datetime->srfi-date datetime)])
    (date->string dt (date-display-format 'rfc2822))))

但当我向它传递sql-timestamp时，它会失败

> (sql-datetime->rfc2822 st)
. . date->string: contract violation
 expected: date?
 given: (tm:date 456232000 10 39 18 5 5 2013 0)
in: the 1st argument of
      (->* (date?) (any/c) string?)
contract from: <collects>/racket/date.rkt

Answer 1

在球拍5.3.4之前，您需要使用srfi/19库中的date->string函数，因为racket/date和srfi/19的结构类型是不兼容的(在即将发布的5.3.4中，它们使用相同的结构)。如果你使用(require srfi/19)并使用这里定义的接口，它应该可以工作。