System.RoundDateTime(DateTime [, BigInteger] [, Text]) Method
Version: Available or changed with runtime version 1.0.
Rounds a DateTime.
Syntax
NewDatetime := System.RoundDateTime(Datetime: DateTime [, Precision: BigInteger] [, Direction: Text])
Note
This method can be invoked without specifying the data type name.
Parameters
Datetime
Type: DateTime
The DateTime that you want to round.
[Optional] Precision
Type: BigInteger
This optional parameter determines the precision used when rounding. The default value is 1000, which rounds to the nearest second. You can only use positive BigIntegers.
[Optional] Direction
Type: Text
This optional parameter specifies how to round the DateTime. The default rounding method is '='. You can change the method by using the following options:
- '=' rounds up or down to the nearest value (default). Values of 5 or greater are rounded up. Values less than 5 are rounded down.
- '>' rounds up
- '<' rounds down
Return Value
NewDatetime
Type: DateTime
The rounded result.
Remarks
A variable of type DateTime is stored as a 64 bit integer. The integer value is the number of milliseconds since year 0. When you call RoundDateTime, the DateTime integer value is rounded as a numeric variable.
If you use 1 for the Precision parameter, then the resulting DateTime is rounded to the nearest millisecond. If you use 1000 for the Precision parameter, which is the default value, then the resulting DateTime will be rounded to the nearest second.
We recommend that you do not use a value greater than 60*60*1000, which is the number of milliseconds in an hour, for the Precision parameter. The Regional and Language Options in Windows affect how the hour and date parts of a DateTime are rounded. To display a DateTime in a specific format, we recommend that you use the Format method instead of the RoundDateTime method.
Example
This example shows how to use the RoundDateTime method to round to the nearest second.
var
Text000: Label 'RoundDateTime(%1, %2) returns %3.';
begin
DateToRound := 20081127D;
TimeToRound := 093524.567T;
DateTimeToRound := CreateDateTime(DateToRound, TimeToRound);
Precision := 1000L;
FormatString := '<Month,2>/<Day,2>/<Year> <Hours24,2>:<Minutes,2>:<Seconds,2>.<Thousands,3>';
Result := RoundDateTime(DateTimeToRound, Precision);
Message(TEXT000, Format(DateTimeToRound,0,FormatString), Precision, Format(Result,0,FormatString));
end;
The message window displays the following:
RoundDateTime(11/27/08 09:35:24.567, 1000) returns 11/27/08 09:35:25.000.