日期格式转换与修改操作系统日期

将秒数转化成hh:mm:ss格式

本例利用自定义函数将用户在文本框中输入的秒数转换为小时分秒格式并将结果显示在文本框中程序运行结果如图所示

图 将秒数转化成hh:mm:ss格式

主要代码如下

在程序的公共部分声明一个自定义函数

function SecondToTime(I:integer):string;

实现自定义函数

function TFormSecondToTime(I: integer): string;

begin

Result := TimeToStr(I/);

end;

为转换按钮添加如下代码

procedure TFormButtonClick(Sender: TObject);

begin

EditText := SecondToTime(StrToInt(EditText));

end;

说明除了本例中所使用的转换方法外还可以应用Format函数将指定的秒数格式化为hh:mm:ss格式如

Format(%d:%d:%d:%[FTime div (FTime mod )div FTime mod ]);

修改操作系统日期

本例是通过TSystemTime类所声明的对象调用其方法来修改操作系统的日期

程序运行结果如图所示

图 修改操作系统日期

主要代码如下

procedure TFormButtonClick(Sender: TObject);

var

i : Integer;

SetDate : TSystemTime;

begin

For i := to FormComponentCount do

begin

if ComponentS[i] is TEdit then

begin

if TEdit(Components[i])Text = then

begin

ApplicationMessageBox(请将日期输入完整！提示);

Exit;

end;

end;

end;

SetDatewYear := StrToInt(EditText);

SetDatewMonth := StrToInt(EditText);

SetDatewDay := StrToInt(EditText);

SetDatewHour := ;

SetDatewMinute := ;

SetDatewSecond := ;

SetSystemTime(SetDate);

end;

上一篇：主生产计划维护功能的实现[1]

下一篇：机构设置及编码功能的实现（四）[2]