From Clomosy Docs

No edit summary
No edit summary
Line 8: Line 8:


<b>Example</b><br>
<b>Example</b><br>
<b>TRObject Syntax</b><br>
 
<pre>
<pre>
var
var
Line 21: Line 21:
   ShowMessage('MilliSec = '+IntToStr(myMilli));
   ShowMessage('MilliSec = '+IntToStr(myMilli));
}
}
</pre>
<b>Base Syntax</b><br>
<pre>
var
  myHour, myMin, mySec, myMilli : Word;
begin
  DecodeTime(Now, myHour, myMin, mySec, myMilli);
  ShowMessage('Time now = '+TimeToStr(Now));
  ShowMessage('Hour    = '+IntToStr(myHour));
  ShowMessage('Minute  = '+IntToStr(myMin));
  ShowMessage('Second  = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;
</pre>
</pre>


Revision as of 11:10, 13 November 2024

The DecodeTime procedure extracts the hours, minutes, seconds, and milliseconds from a given TclDateTime type value.

It stores the values ​​in output variables: Hour, Min, Sec and MSec.

Example

var
  myHour, myMin, mySec, myMilli : Word;

{
  DecodeTime(Now, myHour, myMin, mySec, myMilli);
  ShowMessage('Time now = '+TimeToStr(Now));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
}

Output:

See Also

Retrieved from "http:///index.php?title=DecodeTime&oldid=3145"