Format() macht was es will

[rar]

Hallo Leute!
Folgendes Problem:
Ich muß ein Datum auf yyyy.dd formatieren.
Da würde sich eigentlich Format() eignen.
Aber der Befehl ändert das mitgegebene Datum immer auf irgendwas.
Bei folgendem Scriptl kommt bei mir z.B. 9999 raus.

Dim x As String
Dim datum As String
Dim dt As New NotesDateTime(Now)
datum = dt.DateOnly   
x = Format(datum,"yyyy")

Hat jemand eine Idee was ich da falsch mach?

lG

[Glombi]

So:
Dim x As String
Dim datum As Variant   
Dim dt As New NotesDateTime(Now)
datum = Cdat(dt.DateOnly  )
x = Format(datum,"yyyy.dd")

Bei Datumsberechnung besser nicht zwischendruch in String umwandeln, da gibt es die tollsten Ergebnisse.

Andreas

[rar]

Danke, danke Andreas.
Genau so wollte ich es.
Ich war schon fast am verzweifeln.

-daniel