Per Script Datum berechnen!

[Christopher]

Hallo Leute wie kann ich per Script ab dem jetzigen Tag das Datum in zwei Jahren ermitteln?

Danke Christopher

[Christopher]

  Habs selbst rausgefunden

Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustYear( 4 )

[Don Pasquale]

Habs selbst rausgefunden

Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustYear( 4 )

*besserwissermode on*
Wird wohl eher das Datum in VIER Jahren sein
*besserwissermode off*


Ciao

Don Pasquale

[Till_21]

Habs selbst rausgefunden

Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustYear( 4 )

das ist aber nicht das "jetzige Datum" ... oder ?
probiers mit Dim dateTime As New NotesDateTime( "Today" ) oder bei nem dt. designer
Dim dateTime As New NotesDateTime( "Heute" )
till

[Christopher]

Ich hätte nicht gedacht das meine Frage so viel Verwirrung auslöst   Hintergrund war ich muß manchmal eine größere Anzahl von ID´s rezertifizieren und der Dialog über den Aminclient war mir zu umständlich. Da die ID bei uns immer nur für zwei Jahre gültig sind mußte ich dieses Datum berechnen.

Hier ist das Script:

Sub Initialize
   Dim reg As New NotesRegistration
   Dim ceridfile As String, org As String, certpw As String
   Dim workspace As New NotesUIWorkspace
   
   zulassung = workspace.OpenFileDialog(True, "Bitte die Zulassungsstelle wählen!", "", "A:\")
   certidfile =zulassung(0)
   certpw ="xyz"
   
   Dim session As New NotesSession
   Dim dateTime As NotesDateTime
   Set dateTime = session.CreateDateTime _
   ( Now )
   Call dateTime.AdjustYear( 2 )   
   
   length% = 8
   reg.RegistrationLog = "certlog.nsf"
   reg.IDType = ID_HIERARCHICAL
   reg.CertifierIDFile = certidfile
   reg.Expiration = Datevalue(dateTime.DateOnly)
   reg.RegistrationServer = "RegServer"
   comment$ = " AutoRegistratur"
   
   iddatein  = workspace.OpenFileDialog(True, "Bitte wählen Sie die  ID´s die zu certifizieren sind!", "", "C:\Daten")   
   
   
   
   i=0
   Forall filelist In iddatein
      Print UserName
      
      Call reg.ReCertify(FullPath$ & iddatein(i) , certpw$, comment$)
      Print  iddatein(i) + " wurde rezertifiziert!"
      i=i+1
   End Forall
   
   
End Sub

[ata]

... da ist noch ein kleiner Fehler drin:

Dim ceridfile As String

sollte

... Dim certidfile As String

heißen...

ata