Autor Thema: NotesDateTime (Script)  (Gelesen 2213 mal)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
NotesDateTime (Script)
« am: 12.12.02 - 13:44:06 »
Hallo Leute,

ich möchte in einer Maskte dem User einen Terminvorschlag machen und ein Datumsfeld mit einem Datum 1 Woche im voraus belegen.

Aber bereits folgendes klappt bei mir nicht :

Dim nextDateTime As NotesDateTime
Set nextDateTime = New NotesDateTime( "Today" )
Call nextDateTime.AdjustDay( 7 )


nextDateTime bleibt 00.00.0000

von dem Adjust ganz zu schweigen.

Wo liegt der Denkfehler?

Ciao

Don Pasquale
« Letzte Änderung: 12.12.02 - 14:34:48 von Don Pasquale »

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:NotzesDateTime (Script)
« Antwort #1 am: 12.12.02 - 14:27:20 »
... ich würde das mit Formel machen: @Adjust(.....)
... ansonsten konvertiere das heutige Datum zu Double, zähle 7 dazu und wandle die Zahl wieder zu einem Datum - in meiner Lib zum DateHandling gehe ich teilweise den gleichen Weg...

ata
Grüßle Toni :)

klaussal

  • Gast
Re:NotesDateTime (Script)
« Antwort #2 am: 12.12.02 - 15:17:34 »
... oder mit "evaluate"....


BeispieL:

                Dim eval  As Variant
   Dim varReturn As Variant
   Dim strRolle As String
   Dim subString As String
   
   On Error Goto userHasRoleError
   Set db = session.currentDatabase
   
   strRolle = Rolle
   eval = Evaluate("@UserNamesList")
   varReturn = Arraygetindex( eval, strRolle)
   
   If Isnull(varReturn)  Then
      'Messagebox "nix Gefunden"
      userHasRole = False
   Else
      'Messagebox "gefunden"
      userHasRole = True
   End If

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:NotesDateTime (Script)
« Antwort #3 am: 12.12.02 - 15:28:21 »
???
« Letzte Änderung: 12.12.02 - 15:29:03 von Don Pasquale »

klaussal

  • Gast
Re:NotesDateTime (Script)
« Antwort #4 am: 12.12.02 - 15:31:03 »
... in der evaluate-zeile arbeitet man dann mit "adjust"... ;)

mein teil war eben nur ein beispiel.

Offline Till_21

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 708
  • Geschlecht: Männlich
  • I love Germany
Re:NotesDateTime (Script)
« Antwort #5 am: 12.12.02 - 15:34:36 »
Hi, ich mach das immer so, wie du oben, aber
versuchs mal damit, den konstruktor beim "dimensionieren aufzurufen...

Dim nextDateTime As New NotesDateTime(" Today")
Call nextDateTime.AdjustDay( 7 )


till

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:NotesDateTime (Script)
« Antwort #6 am: 12.12.02 - 15:43:14 »

Wo liegt der Denkfehler?


Dass Du einen DEUTSCHEN Designer verwendest.

Da musst Du schon    mit HEUTE arbeiten.

Dim nextDateTime As New NotesDateTime( "Heute" )
Call nextDateTime.AdjustDay( 7 )

und schon klappt´s

@ata: Evaluate wollte ich mir als Plan B aufheben.
@klaussal: ich war im ersten moment etwas irritiert, bis ich begriffen habe worauf du hinauswolltest, sorry.
@till: Danke für den tipp, das hat mich bewogen weiter zu experimentieren

Ciao

Don Pasquale

« Letzte Änderung: 12.12.02 - 15:44:30 von Don Pasquale »

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz