DominoArea.org [Archive]

[syntax="ls"]Function Adjust(pDateToAdjust As NotesDateTime, pAnnee As Integer, pMois As
Integer, pJour As Integer, pHeure As Integer, pMinute As Integer, pSeconde
As Integer) As NotesDateTime

On Error Goto ErrorHandler

Dim dateTime As NotesDateTime

Set dateTime = pDateToAdjust

Call dateTime.AdjustYear( pAnnee )
Call dateTime.AdjustMonth( pMois )
Call dateTime.AdjustDay( pJour )
Call dateTime.AdjustHour( pHeure )
Call dateTime.AdjustMinute( pMinute )
Call dateTime.AdjustSecond( pSeconde )

Set Adjust = dateTime

TheEnd:
Exit Function

ErrorHandler:
Print "Adjust: " & Str$(Err) & " at line " & Str$(Erl) & ": " & Error$
Resume TheEnd
End Function[/syntax]Exemple :[syntax="ls"]Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
Set dateTime = Adjust(dateTime, 0, 0, 3, 0, 0, 0)[/syntax]