Servercrash bei Datumsumwandlung

[zysmo]

Guten Morgen!

Ich verzweifle gerade an folgendem Problem:
Ich möchte ein Datum (NotesDateTime) in ein bestimmtes Stringformat bringen.

Das ganze mach ich im Web mit einem Agenten der durch WQS ausgelöst wird.
Wenn das Datum in einem Notes Document steht, funktioniert das auch.

z.B. so:

Code

Dim tmp_Str As String
tmp_Str = Format$(doc.ablauf_datum(0),"yyyy-mm-dd")

Jetzt möchte ich das Datum aber verändern, so etwa:

Code

Dim tmp_Dat As New NotesDateTime(doc.ablauf_datum(0))
tmp_Dat.Adjustday(5)
doc.ablauf_datum = tmp_Dat.Dateonly
Call doc.save(True, False)

Das funktioniert einwandfrei.
Aber ich benötige das neue Datum auch als String im Format "yyyy-mm-dd"
Wenn ich jetzt folgednes versuche:

Code

Dim tmp_Str As String
tmp_Str = Format$(tmp_Dat,"yyyy-mm-dd")

crasht der Server 

auch wenn ich das NotesDocument mal außen vor lasse

Code

Dim tmp_Str As String
Dim tmp_Dat As New NotesDateTime(Now)
tmp_Str = Format$(tmp_Dat,"yyyy-mm-dd")

crasht reproduzierbar der Server... Warum ist das so?

Danke,
Alex

[ghostmw]

Hi Alex,

kann man direkt ein NotesDateTime-Objekt mit dem Format-Befehl umbauen ?

Müsste man nicht eher den Umweg über einen Datumsvariant gehen ?


varMyDate = Cdat ( NotesDateTime.DateOnly )

strResult = Format$ ( varMyDate, "yyyy-mm-dd" )

Gruß
Marco

[ascabg]

Hallo,

Ich tippe mal darauf, dass tmp_dat ein Objekt der Klasse NotesDateTime ist und Du kein Objekt an die Funktion Format$ uebergeben kannst.


Andreas

[zysmo]

Müsste man nicht eher den Umweg über einen Datumsvariant gehen ?


varMyDate = Cdat ( NotesDateTime.DateOnly )

strResult = Format$ ( varMyDate, "yyyy-mm-dd" )

Tatsächlich.
Wenn ich den Umweg über das Variant gehe, funktioniert es.
Warum im anderen Fall der Server direkt abschmiert ist mir allerdings immer noch schleierhaft...