Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Christopher am 02.01.03 - 21:39:09

Titel: Per Script Datum berechnen!
Beitrag von: Christopher am 02.01.03 - 21:39:09

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

Danke Christopher

Titel: Re:Per Script Datum berechnen!
Beitrag von: Christopher am 02.01.03 - 22:38:12

 ;D Habs selbst rausgefunden

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

Titel: Re:Per Script Datum berechnen!
Beitrag von: Don Pasquale am 06.01.03 - 10:03:11

Zitat von: Christopher am 02.01.03 - 22:38:12

;D 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

Titel: Re:Per Script Datum berechnen!
Beitrag von: Till_21 am 06.01.03 - 12:05:43

Zitat von: Christopher am 02.01.03 - 22:38:12

;D 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

Titel: Re:Per Script Datum berechnen!
Beitrag von: Christopher am 06.01.03 - 12:24:05

Ich hätte nicht gedacht das meine Frage so viel Verwirrung auslöst  ;D 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

Titel: Re:Per Script Datum berechnen!
Beitrag von: ata am 06.01.03 - 13:01:37

... da ist noch ein kleiner Fehler drin:

Zitat

Dim ceridfile As String

sollte

... Dim certidfile As String

heißen...

ata   ;)