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

SpssTextData の結果は日付型である必要がありますが、それを読み取ると、「12/22/1990」ではなく「12881203200」という数値が返されます。

http://www.ats.ucla.edu/stat/spss/library/dates.htmセクション「表示用の日付の書式設定」で説明されているように、明らかに書式の問題です。

4

2 に答える 2

1

これは、SPSS コミュニティ フォーラムで説明されました。この API は書式設定された日付を返しません。基になる数値を返します。

于 2012-10-05T00:38:01.363 に答える
0

この機能は以前に書きました。最適化できることは間違いありません。

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
于 2013-06-19T11:29:23.760 に答える