Domino 9 und frühere Versionen > Entwicklung

Datumsproblem

<< < (2/6) > >>

ata:
... ich hatte bisher unterschiedliche Erfahrungen mit Datumsformaten - mit dieser kleinen Funktion klappts bisher ohne Probleme - den von dir vorgeschlagenen Weg müsste ich mir dazu mal anschauen - sollte auch gehen...

ata

robertpp:
Ich glaub ich check es nicht!!
So sieht das jetzt aus:

Sub Initialize

   Const TitleField = "Subject"
   Const LogViewName = "Log"
   Const LogDateField = "LogDate"
   Const LogDetailsField = "AccessLog"
   Const LogFormName = "Log"
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim udoc As NotesDocument
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim newdoc As NotesDocument
   Dim view As NotesView
   Dim LogExists As Integer
   On Error Resume Next
   Set uidoc = ws.CurrentDocument
   Set udoc = uidoc.Document
   user = Evaluate("@Name([Abbreviate]; @UserName)")
   dateread = Evaluate("@Now")
   readstring = user(0)
   readstringdate = dateread(0)
   displayall = readstring & Chr(9) & Chr(9) & " : " & readstringdate & Chr(9) &" : " & udoc.GetFirstItem(TitleField).text & Chr$(13)
   Set view = s.CurrentDatabase.GetView("ViewLog")
   Set doc = view.GetLastDocument
   Do While Not doc Is Nothing And Not LogExists
      Set temp = doc.GetFirstItem(LogDateField)
      If temp.text = Format(Date$,"dd.mm.yyyy") Then
         LogExists = -1
      Else
         Set doc = View.GetPrevDocument(doc)
      End If          
   Loop
   If Not doc Is Nothing Then
      Set item = doc.GetFirstItem(LogDetailsField)
      Call item.AppendToTextList(displayall)
      Call doc.Save(False,False)
   Else
      Set newdoc = s.currentdatabase.Createdocument
      newdoc.form = LogFormName
      Dim PublicAccess As New NotesItem(newdoc, "$PublicAccess","1")
      Dim item2 As New NotesItem(newdoc, LogDetailsField, displayall)
      Dim item3 As New NotesItem(newdoc, LogDateField, Format(Date$, "dd.mm.yyyy"))
      Call newdoc.Save(False,False)
   End If
End Sub

robert

Glombi:
Hi ata,
wenn ich mir Dein Script so ansehe, kann man das auch so machen:

Function FormatDatum( sDatum As String ) As String
  FormatDatum = Format$(sDatum,"Short Date")
End Function

Oder?

Andreas

Glombi:
@robert:
Wo ist denn das Date$ her  ???

So wie es im Code steht, ist es nicht initialisiert und daher immer = "".
Es müsste sowas wie
Date = cstr(readstringdate)
geben

Andreas

ata:
@Glombi

... ich hatte in der Vergangenheit mal Probleme beim Format$ - daher meine Umgehung - ich weiß allerdings nicht mehr welche Version - seither wandle ich das Datum auf diese oder ähnliche Weise...

... kann gut sein, daß die jetzigen Versionen damit keine Probleme haben, aber was, wenn wieder einer mit ner Buggy-Version arbeitet / arbeiten muß...

ata

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete