Datum ohne Punkte eingeben

[Detlef]

Hallo und einen schönen Sonntag,

sag mal, kennt einer von euch eine Eingabeüberstzung in der ich in einem Datumsfeld ein Datum ohne Punkte (z.B. 210304 o. 21032004) eingeben kann und die Punkte automtisch gesetzt werden?

Danke für Tips

Gruß
Detlef

[TMC]

Hi Detlef,

noch nicht gemacht, aber sollte bestimmt möglich sein.

Schau Dir mal u.a. folgende Formelsprache-Befehle an:
@Contains, @Left, @Middle, @Replace, @ReplaceSubstring, etc.

Matthias

[eknori]

probiere mal mein

tmp:=@Text(210304);
day:=@Left(tmp;2);
month:=@Middle(tmp;2;2);
year:=@If(@Length(tmp) =6; @Right(tmp;2);@Right(tmp;4));

myDate:=day+"."+month+"."+year;
@Prompt([Ok];"Hallo Welt";myDate)

[TMC]

Die Formel von Eknori sieht gut aus.

Generell noch:
Afaik gibts Probleme, wenn Du ein Datumsfeld verwendest, da hier die Notes-interne Prüfung zuschlägt bevor es deine Input Translation auswertet.

[koehlerbv]

Ich befürchte, so einfach geht das nicht.
@Ulrich:

Code

tmp:=@Text(210304);

Du verwendest da eine Zahl. Für den 21.03.2004 sieht das ja gut aus, aber Deine Auswerte-Formel funktioniert nicht mehr am
01042004,
denn daraus wird
1042004.
Der Datumswert muss schon Text sein und auf eine gültige Länge geprüft werden, weiterhin auf gültige Tage und Monate.

Das ist ganze wird sicherlich ein netter, kleiner Parser ;-)

Ciao,
Bernhard

[TMC]

Wenn wer gerade daran arbeitet (ist ja eine nette Sonntag-Abend-Aufgabe   ):

Man sollte auch noch berücksichtigen, dass User auch das Datum wie folgt eingeben könnten:
1304 (01. März 2004)
91204 (09. Dez. 2004)
9124 (9. Dez. 2004)
1314 (13. Jan. 2004)
134 (01. März 2004)

 
Matthias

[koehlerbv]

Hier hilft sowieso nur eine Regel für die Eingabe oder die Aufteilung in die Felder DD, MM und YYYY.
01112004 ist in Ordnung.
1 - 11 - 04 ist in Ordnung (wenn dies jetzt in drei Feldern steht !)

Sonst wird es lustig:
Was bedeutet
111 ?
11. Januar (des aktuellen Jahres) oder
11. November (des aktuellen Jahres) ?

Bernhard

[TMC]

Hast Recht, Bernhard, mein Vorschlag ist wirklich nicht sinnvoll gewesen (ohne Vornullen wenn Tag/Monat einstellig). 3 Felder ist ja gegen jede Usabilty, da kann der User genausoschnell auch ein "-" eingeben auf dem Zahlenblock als wie zum nächsten Feld wechseln.

Also was wirklich schick - und umsetzbar - wäre imho:
010103 -> 01. Jan. 2003
12032003 -> 12.März 2003
0101 -> 01. Januar vom aktuellen Jahr
h -> @today
g -> @yesterday

Was mich noch stört, ist der Umstand, dass Eingabeübersetzung so im Datumsfeld nicht funktioniert, da (wie oben schon erwähnt) die notesinterne Prüfung zuvorkommt.
Und Exiting-Event lässt nur Script zu (klar, wäre deswegen kein Hindernis).

Matthias

[eknori]

ok, ok, war quick'ndirty Sonntags Fingerabeit ...

wie sieht denn eure Formel aus ??

Ulrich

[koehlerbv]

Wenn mir mal das Datums-/Zeitdeld nicht ausreicht, mache ich mir darüber tiefgründigere Gedanken (ich mag ja eh Parser bauen  )
Wenn es jemand anderes vorher eher ernsthaft (begründet) braucht, denke ich natürlich auch asap nach !

Bernhard

[TMC]

wie sieht denn eure Formel aus ??

Das wollte ich hören, Ulrich  

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

Wer bietet mehr ?

 

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

[TMC]

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

Please explain. Habe den Satz jetzt 3 mal gelesen und oben Deine Postings gecheckt,  verstehe ich aber trotzdem noch nicht, den Satz.

Danke, Matthias

[TMC]

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

Ja leider. Ich hab mir das mal angesehen, aber eine andere Möglichkeit hat man wohl nicht - weil eben Notes in einem Datumsfeld nach F9 / Aktualisierung 030303 (oder sonstige Strings) ablehnt.

Ich sehe nur 2 Möglichkeiten:
 a) Exiting-Event
 b) Textfeld

Matthias

[eknori]

Sorry, hatte ein posting abgesetzt, was ich aber zwischenzeitlich gelöscht habe. Da hatte ich gefragt, ob das Datum als Text genau in den eingangs erwähnten Formaten vorliegt...

[animate]

Ich sehe nur 2 Möglichkeiten:
 a) Exiting-Event
 b) Textfeld

eine andere: zwei Felder (1 Datum, 1 berechnetes Textfeld ). Dann z.B. im Editmodus nen Datepicker anzeigen und im Readmodus/in Ansichten das Textfeld mit übersetztem Datum

[TMC]

Ich sehe nur 2 Möglichkeiten:
 a) Exiting-Event
 b) Textfeld

eine andere: zwei Felder (1 Datum, 1 berechnetes Textfeld ). Dann z.B. im Editmodus nen Datepicker anzeigen und im Readmodus/in Ansichten das Textfeld mit übersetztem Datum

Hab ich auch schon dran gedacht. Problem aber dabei genauso: Das Datumsfeld wird ja im Editmodus benutzt, und da hat man dann eben wieder das Problem: User gibt 030303 oder "t" (für Today)  ein.