Domino 9 und frühere Versionen > ND6: Entwicklung

Datum ohne Punkte eingeben

<< < (3/6) > >>

TMC:

--- Zitat von: eknori am 21.03.04 - 22:00:14 ---wie sieht denn eure Formel aus ??
--- Ende Zitat ---

Das wollte ich hören, Ulrich  ;D

Hier mein quick'n'dirty Exiting-Event, leider keine Formel sondern Script, weil Exiting Formeln nicht mag:


--- Code: ---Sub Exiting(Source As Field)
   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document
   
   Dim strDatum As String
   Dim iDatumlaenge As Integer
   strDatum = uidoc.fieldgettext ("Datum")
   iDatumlaenge = Len(strDatum)
   
   Dim strDay As String
   strDay = Left$(strDatum,2)

   Dim strMonth As String
   strMonth = Mid$(strDatum,3,2)

   Dim strYear As String
   If iDatumlaenge = 6 Then
      strYear = Right$(strDatum,2)
   Else
      strYear = Right$(strDatum,4)
   End If
   
   Dim strDatumNeu As String
   If iDatumlaenge = 6 Or iDatumlaenge = 8 Then
      strDatumNeu = strDay & "." & strMonth & "." & strYear
      Call uidoc.fieldsettext("Datum", strDatumNeu)      
   End If
   
   If strDatum = "t" Then
      strDatumNeu = Str$(Today())
      Call uidoc.fieldsettext("Datum", strDatumNeu)      
   End If   
   
   
End Sub
--- Ende Code ---

Wer bietet mehr ?

 ;D

Matthias

eknori:
ich mag ya blind sein, aber was macht dein script großartig anders als meine Formel ??

TMC:
Das Script funktioniert - das ist der Unterschied :-)

Deine Formel klappt mit einem Datumsfeld nicht, sondern stößt auf Fehler (weil Notes meckert wenn "030303" oder "t" im Datumsfeld steht - und man die Formel (leicht angepasst) in der Input Translation ausführt.

Außerdem keine Probleme mit Vornullen, da hier der Eintrag direkt als String gezogen wird.

eknori:
deshalb hatte ich eingangs gefragt, ob die Ausgangdaten genau in den zwei Formen vorliegen; und da funktioniert mein Script...

animate:
das ungute an der Exiting-Event-Lösung ist, dass das Event nicht zwangsläufig abgefeuert wird, nämlich dann nicht, wenn der Benutzer das Feld nicht verlässt

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete