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

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

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

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

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

    主要代码如下     在程序的公共部分声明一个自定义函数     function SecondToTime(I:integer):string;     实现自定义函数     function TForm SecondToTime(I: integer): string;     begin      Result := TimeToStr(I/ );     end;     为 转换 按钮添加如下代码     procedure TForm Button Click(Sender: TObject);     begin      Edit Text := SecondToTime(StrToInt(Edit Text));     end;      说明 除了本例中所使用的转换方法外 还可以应用Format函数将指定的秒数格式化为hh:mm:ss格式 如     Format( % d:% d:% d:% [FTime div (FTime mod )div FTime mod ]);

    修改操作系统日期

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

    程序运行结果如图 所示

图   修改操作系统日期