Domino 9 und frühere Versionen > ND6: Entwicklung

String nach Datum konvertieren

<< < (3/3)

klaussal:

--- Code: ---Dim wrk00 As Variant
Dim wrk01 As Long
Dim wrk02 As Long
Dim wrk03 As Long
Dim ret_eval As Variant

wrk01 = Clng(temp5) <-- Tag / TT
wrk02 = Clng(temp6) <-- Monat /MM
wrk03 = Clng(temp7) <-- Jahr /JJJJ

wrk00 = Datenumber(wrk03, wrk02, wrk01)

If wrk00 = 0 Then
doc.geb_datum = ""
Else
ret_eval = Evaluate( |FIELD wrk00 := @Date(wrk00);@true |, doc)
doc.geb_datum = wrk00
End If
--- Ende Code ---

wo steckt hier der doofe Fehler ?

Glombi:
Das Feld ist noch nicht gesetzt:

Dim wrk00 As Variant
Dim wrk01 As Long
Dim wrk02 As Long
Dim wrk03 As Long
Dim ret_eval As Variant

wrk01 = Clng(temp5) <-- Tag / TT
wrk02 = Clng(temp6) <-- Monat /MM
wrk03 = Clng(temp7) <-- Jahr /JJJJ

wrk00 = Datenumber(wrk03, wrk02, wrk01)

If wrk00 = 0 Then
doc.geb_datum = ""
Else
doc.geb_datum  = wrk00
ret_eval = Evaluate( |FIELD geb_datum := @Date(geb_datum );@true |, doc)
End If

Andreas

koehlerbv:
If wrk00 = 0 Then
doc.geb_datum = ""
Else
doc.Geb_datum = wrk00
ret_eval = Evaluate( |FIELD wrk00 := @Date(Geb_datum)|, doc)
End If

Bernhard

klaussal:
@Bernhard,

danke  ;)
Bin heute dermassen "zu" mit Anfragen, Ändg. etc, dass ich total vernagelt bin. Werde wohl gleich Feierabend machen..

klaus

koehlerbv:
He, Andreas war aber 8 Sekunden schneller  ;D

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete