IsValidTime

This function returns True if the given time parts would return a valid time.

With a similar functionality to IsValidDate, this function is useful for testing time parts prior to passing them to the EncodeDateTime function.

Declaration: function IsValidTime(const AHour: Word; const AMinute: Word; const ASecond: Word; const AMilliSecond: Word): Boolean

An example of code using this function.

procedure OnMapEvent(var Value:Variant);
var
  vReal, vReal2 ; boolean;
begin
 //Returns true if the given time parts would create a valid time

  vReal := IsValidTime(15, 45, 23, 562);                   //VALID
 if vReal = True then
    loginfo('vReal time is valid.')
 else
    LogInfo('vReal time is not valid.');

  vReal2 := IsValidTime(15, 71, 61, 562);                   //INVALID
 if vReal2 = True then
    loginfo('vReal2 time is valid.')
 else
    LogInfo('vReal2 time is not valid.');

  LogInfo('');
end;