Manage Learn to apply best practices and optimize your operations.

@Adjust in LotusScript

This function adjusts the specified time-date value by the number of years, months, days, hours, minutes, and/or seconds.

This function adjusts the specified time-date value by the number of years, months, days, hours, minutes, and/or seconds you specify. The amount of adjustment may be positive or negative. This function is the equivalent of @Adjust in formula language. I hope someone finds this function useful.

Function Adjust(pDateToAdjust As NotesDateTime, pYear As Integer, pMonth As Integer, pDay As Integer, pHour As Integer, pMinute As Integer, pSecond As Integer) As NotesDateTime

 ' By Tony Murphy ' No Warranty Is Granted ' Use At Your Own Risk ' Purpose: ' This function adjusts the specified time-date value by the number of ' years, months, days, hours, minutes, and/or seconds you specify. ' The amount of adjustment may be positive or negative. ' Arguments: ' pDateToAdjust - Time-date. The time-date value you want to increment.
This should be a single value, not a range. ' pYear - Number. The number of years to increment by. ' pMonth - Number. The number of months to increment by. ' pDay - Number. The number of days to increment by. ' pHour - Number. The number of hours to increment by. ' pMinute - Number. The number of minutes to increment by. ' pSecond - Number. The number of seconds to increment by. ' Special Notes: ' None ' History: ' 06/08/01, Tony Murphy, Created. 'Example: ' Dim dateTime As New NotesDateTime( "" ) ' Call dateTime.SetNow ' Set dateTime = Adjust(dateTime, 0, 0, 3, 0, 0, 0) On Error Goto ErrorHandler Dim dateTime As NotesDateTime Set dateTime = pDateToAdjust Call dateTime.AdjustYear( pYear ) Call dateTime.AdjustMonth( pMonth ) Call dateTime.AdjustDay( pDay ) Call dateTime.AdjustHour( pHour ) Call dateTime.AdjustMinute( pMinute ) Call dateTime.AdjustSecond( pSecond ) Set Adjust = dateTime TheEnd: Exit Function ErrorHandler: Print "Adjust: " & Str$(Err) & " at line " & Str$(Erl) & ": " & Error$ Resume TheEnd End Function

Dig Deeper on Domino Resources - Part 2

SearchWindowsServer

Search400

  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury

SearchDataCenter

SearchContentManagement

Close