Domino 9 und frühere Versionen > Entwicklung

Per Script Datum berechnen!

(1/2) > >>

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

Danke Christopher

Christopher:
 ;D Habs selbst rausgefunden

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

Don Pasquale:

--- 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 )

--- Ende Zitat ---

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


Ciao

Don Pasquale

Till_21:

--- 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 )

--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite