Wieso so kompliziert ? Datumsfelder sind doch schon Zahlen (vom Typ Variant / DateTime), die letztlich Double (oder entsprechenden Arrays) entspricht.
So ganz schnell hingeschmiert:
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim iDifference As Integer
Set doc = ws.CurrentDocument.Document
iDifference = Cint (doc.EndDate (0) - doc.StartDate (0))
Messagebox "Zeitraum: " & Cstr (iDifference) & " Tage"
Vorher gehört natürlich noch eine Prüfung auf Isdate, und die Datumsvariablen kann man auch ohne weiteres erstmal (zwecks einfacherem / übersichtlicheren Handling) in Variable vom Typ Variant übernehmen.
Wenn es auch im Zeitzonen geht, dann die NotesDateTime Class, aber sonst ...
Bernhard
Hallo Axel,
ich habe eben mal einen Uralt-Code (1997) herausgesucht:
Set itemCutOffDate = docSetup.GetFirstItem ("CutOffDate")
Set dtCutOffDate = itemCutOffDate.DateTimeValue 'convert the item to a NotesDateTime object
vCutOffDate = dtCutOffDate.LSLocalTime 'convert the NotesDataTime to a variant
Wie bescheuertumständlich war ich damals ?
Das Ganze geht auch in einer Zeile:
vCutOffDate = docSetup.CutOffDate (0)
Mit der Zeit wird man eben weiser - und dafür ist ja auch das Forum da :)
Dann habe ich mal eine Routine von Ende 2004 herausgesucht, die nach Übergabe zweier NotesItems vom Typ Date/Time die Diffenrenz in Minuten berechnet:
Name GetTimeDifferenceMin
Type Function
Parameters vStartTime As Variant
vEndTime As Variant
Return Type Double
Lotuscript
'++LotusScript Development Environment:2:1:GetTimeDifferenceMin:1:8
Function GetTimeDifferenceMin (vStartTime As Variant, vEndTime As Variant) As Double
'==================================================================================================================
' Purpose: Calculates the time difference between two given Date/Time values (normally the time component only)
'----------------------------------------------------------------------------------------------------------------------------
' Arguments:
' vStartTime - should be a Date / Time value
' vEndTime - should be a Date / Time value. If vEndTime is 0:00 it will be converted to 24:00 (= 1) !
'----------------------------------------------------------------------------------------------------------------------------
' Returns: The time difference in minutes if both values are Date/Time values (otherwise 0)
'----------------------------------------------------------------------------------------------------------------------------
' Created by: Bernhard Koehler on 13.12.2004 Modified by:
'----------------------------------------------------------------------------------------------------------------------------
' Changes:
'==================================================================================================================
Dim dblDifference As Double
On Error Goto ErrorRoutine
'The default value:
GetTimeDifferenceMin = 0
'Check for valid Date/Time values:
If Not (Isdate (vStartTime)) Or Not (Isdate (vEndTime)) Then
Exit Function
End If
'Because we can't store 24:00 in Notes we use 0:00 and have to convert this value to 24:00 = 1
If vEndTime = 0 Then
vEndTime = 1
End If
dblDifference = vEndTime - vStartTime
dblDifference = dblDifference * 24 * 60
GetTimeDifferenceMin = dblDifference
Exit Function
ErrorRoutine:
GetTimeDifferenceMin = 0
Call ErrorHandler ("GetTimeDifferenceMin")
Exit Function
End Function
Dieses Beispiel soll zeigen, wie man auf des Pudels Kern zurückkommt: Datums-/Zeitangaben sind schlichte Double-Zahlen. Wie aber auch schon erwähnt: Wenn es um die Berücksichtigung von Zeitzonen u.ä. geht, dann kann das wohl Notes, aber dafür werden in einem DT-Object dann auch mehr Informationen zur Verfügung gestellt. Unsere schlichte Datumsseriennummer reicht dann nicht mehr !
Also wie immer: Jedes Werkzeug, wo es hingehört.
Bernhard