Zeitzonenproblem

[wwi]

Hallo,

ich hoffe ich wiederhole hier nichts. Aber habe leider keine wirkliche Lösung für mein Problem gefunden.

Ok, aus historischen Gründen (Update von R4 auf R5) sieht bei mir das Zeitformat folgendermaßen aus:

notes.ini Client und Server
;************* Zeitzone ******************
ZONE_SET=1
Timezone=-1
DST=0
UseNotesTimeZone=1

Arbeitsumgebung:
Zeitzone des BS verwende: Nein
Lokale Zeitzone: CET
Sommerzeit: gilt hier nicht

Funktioniert auch innerhalb der Domäne einwandfrei.
Aber leider nicht in andere Domänen, bzw. ins Internet.
Gibt dann eine Stunde Zeitverschiebung…..allerdings nur während der Sommerzeit.

Ich denke (sollte ich falsch liegen so bin ich für die richtige Lösung dankbar), die beste Einstellung ist: Auf dem Server die Betriebssystem Zeit zu verwenden, und ebenso auf dem Client.
Beim Server sehe ich da kein Problem, aber beim Client kenne ich leider keinen Parameter in der notes.ini, in der "Zeitzone des Betriebssystems verwenden" gespeichert wird.

Ach so, Client ist XP und R 5.011. Server NT und W2k mit R 5.011.

Wolfgang

[qu1cke]

Jaja, das liebe Sommerzeit-Problem. Du hast keinen DSTLaw-Parameter. Notes kapiert einfach nicht, WANN es Sommer/Winterzeit verwenden soll. Ich habe für meine leidgeplagten Benutzer mal ein Script (Button) geschrieben, das ich denen einfach zuschicke, sollten Probleme auftauchen:


Sub Click(Source As Button)
   
   Dim s As New notessession
   Dim ws As New notesuiworkspace
   Dim uidoc As notesuidocument
   Set uidoc = ws.currentdocument
   
'Sommerzeit-Regel in Notes.ini ersetzen   
   Call s.setenvironmentvar("DSTlaw","3 -1 1 10 -1 1",True)
   
'Sommerzeit in Notes.ini einstellen   
   Call s.setenvironmentvar("DST","1",True)
   
'aktuelles Arbeitsumgebungsdokument finden und Sommerzeit-GILT HIER einstellen   
   location = s.GetEnvironmentString("Location",True)
   nloc = Left(location, Instr(location, ",")-1)
   Dim adb As New notesdatabase("","names.nsf")
   Dim  dummy As New notesdatetime("01/01/1950")
   Dim coll As notesdocumentcollection    
   Dim adbdoc As notesdocument    
   suche = "Name=" & Chr(34) & nloc & Chr(34)
   Set coll = adb.search(suche,dummy,0)
   Set adbdoc = coll.getnthdocument(1)
   adbdoc.DST = "1"
   Call adbdoc.save(True,False)    
   
'Mail an Admin senden
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = s.CurrentDatabase
   Set doc = New NotesDocument( db )
   doc.Form = "Memo"
   doc.SendTo = "Du-Administrator-Mensch"
   doc.Subject = "Sommerzeit wurde nachgestellt"
   Call doc.Send( False )
   Call uidoc.close   
End Sub


Dieses Script ist für MEZ, Sommerzeit beachten, also etwas anders als Deine Parameter. DSTLaw sollte trotzdem gesetzt werden...  

Grüße
René