From Clomosy Docs

No edit summary
No edit summary
Line 1: Line 1:
function EncodeTime(const Hour, Min, Sec, MSec Word):TclDateTime;
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
function EncodeTime(Hour, Min, Sec, MSec: Word):TclDateTime;
</div>


The EncodeTime function generates a TclDateTime return value from the passed Hour, Min, Sec and MSec (millisecond) values.<br>  
The EncodeTime function generates a TclDateTime return value from the passed Hour, Min, Sec and MSec (millisecond) values.<br>  
Line 8: Line 10:
MSec = 0..999<br>
MSec = 0..999<br>


'''Example:'''<br>
<b>Example</b><br>
:'''Base Syntax'''
<b>TRObject Syntax</b><br>
  var
<pre>
    myDate : TclDateTime;
var
 
  myDate : TclDateTime;
  begin
    // Set my date variable using the EncodeTime function
{
    myDate := '''EncodeTime'''(12, 50, 40, 231);
  // Set my date variable using the EncodeTime function
    ShowMessage('Date set to '+TimeToStr(myDate));
  myDate = EncodeTime(12, 50, 40, 231);
  end;
  ShowMessage('Date set to '+TimeToStr(myDate));
}
</pre>
<b>Base Syntax</b><br>
<pre>
var
  myDate : TclDateTime;
begin
  // Set my date variable using the EncodeTime function
  myDate := EncodeTime(12, 50, 40, 231);
  ShowMessage('Date set to '+TimeToStr(myDate));
end;
</pre>


:'''TRObject Syntax'''
<b>Output:</b><br>
  var
<div class="alert alert-success" role="alert" data-bs-theme="light">
    myDate : TclDateTime;
Time set to 12:50:40
 
</div>
  {
    // Set my date variable using the EncodeTime function
    myDate = '''EncodeTime'''(12, 50, 40, 231);
    ShowMessage('Date set to '+TimeToStr(myDate));
  }


 
<h2> See Also </h2>
'''Output:'''<br>
* [[System_Library#Date_and_Time_Functions | Date and Time Functions]]
Time set to 12:50:40

Revision as of 08:20, 8 October 2024

The EncodeTime function generates a TclDateTime return value from the passed Hour, Min, Sec and MSec (millisecond) values.
The permitted parameter values are :
Hour = 0..23
Min = 0..59
Sec = 0..59
MSec = 0..999

Example
TRObject Syntax

 var
   myDate : TclDateTime;
 
 {
   // Set my date variable using the EncodeTime function
   myDate = EncodeTime(12, 50, 40, 231);
   ShowMessage('Date set to '+TimeToStr(myDate));
 }

Base Syntax

 var
   myDate : TclDateTime;
 
 begin
   // Set my date variable using the EncodeTime function
   myDate := EncodeTime(12, 50, 40, 231);
   ShowMessage('Date set to '+TimeToStr(myDate));
 end;

Output:

See Also

Retrieved from "http:///index.php?title=EncodeTime&oldid=2642"