Domino 9 und frühere Versionen > Entwicklung

@Today - Datumsfeld

<< < (2/2)

Rob Green:
hab das in einen Button reingehauen und 2 Felder Date1/Date2...

Dim NWS As New NotesUIWorkspace
   Dim UIDoc As NotesUIDocument
   Set UIDoc = NWS.currentdocument
   Dim Doc As NotesDocument
   Set Doc = UIDoc.document
   
   daydiff=Abs(Int(Cdbl(doc.Date1(0))-Cdbl(doc.Date2(0))))
   Msgbox Cstr(daydiff)

Klappt wunderbar...war übrigens oben ein Schreibfehler aus Martin Scotts Codelib...statt "Cbdl" heißt es "Cdbl"

robertpp:
Bei mir klappt es jetzt auch!!!

danke
robertpp

ata:
... falls du noch Interesse an der Lib hast...

http://www.anton-tauscher.de/downloads/DateHandling.nsf
http://www.anton-tauscher.de/downloads/DateHandling.zip

ata

robertpp:
danke @ata
Ich hab sie mir eh schon vor längeren heruntergesaugt aber ich hab nicht gewusst wo ich in der db das finden kann!!

robertpp

ata:
... die Lib liegt  bei Resourcen unter Libraries
... eingebunden wird sie, indem du die Lib bei dir einfügst, und dort wo du sie benötigst mit Use "Datehandling" einbindest. Ab dann gehst du mit der Lib so um, wie ich es in der Beispielmaske demonstriere...

ata

Navigation

[0] Themen-Index

[*] Vorherige Sete