Question

    Dim SpssTextData As Variant
    Dim objDataDoc As ISpssDataDoc
    SpssTextData = objDataDoc.GetTextData("mydatecol", "mydatecol", 1, 1)

SpssTextData的结果应该是Date类型，但是当我读它时它返回一个数字ex：“12881203200”而不是“12/22/1990”。

显然这是格式问题，如http://www.ats.ucla.edu/stat/spss/library/dates.htm“格式显示日期”一节中所述

Answer 1

SPSS社区论坛对此进行了解释。此api不返回格式化日期：它返回基础数值。

Answer 2

我前段时间写过这个函数。当然可以进行优化。

Function spssDateToVBADate(d As Double) As Date
    Dim dias As Double, segundos As Double
    Dim f As Date
    dias = d / 86400#
    segundos = Int((dias - Int(dias)) * 86400)
    f = DateAdd("d", Int(dias), #10/14/1582#)
    spssDateToVBADate= DateAdd("s", segundos, f)
End Function

SPSS脚本中的日期格式

2 个答案: