请教Delphi7的时间函数

Question

以前的delpi版本上好象有Time函数可以获取当前时间，Delphi7上好象没有，我只好用StrToTime(TimeToStr(now))来获取，谁有好的方法，拿出来共享一下，先谢谢！

Answer 1

添加一个 EditEdit1.text:=Timetostr(Time);    //获取当前系统时间,可以与 Timer 一同使用
Edit1.text:=Datetostr(Date);    //获取当前系统日期

Answer 2

var
  H, M, S, MS:Word;
begin
  DecodeTime(Now, H, M, S, MS);
end;

Answer 3

下面是有关时间的函数，希望对你有用：
//==================================================================
*TDateTime  TDate 类Now 返回当前日期及时间 
Date 返回当前日期 
Time 返回当前时间 
DateTimeToStr 按缺省格式将日期和时间值转换为字符串；特定格式转换可用 FormatDateTime函数 
DateTimeToString 按缺省格式将日期和时间值拷贝到字符串缓冲区 
DateToStr 将TDateTime值的日期部分转为字符串 
TimeToStr 将TDateTime值的时间部分转为字符串 
FormatDateTime 按特定格式将日期和时间值转换为字符串 
StrToDateTime 将带有日期和时间信息的字符串转换为TdateTime类型值，如串有误将引发一个异常 
StrToDate 将带有日期信息的字符串转换为TDateTime类型格式 
StrToTime 将带有时间信息的字符串转换为TDateTime类型格式 
DayOfWeek 根据传递的日期参数计算该日期是一星期中的第几天 
DecodeDate 根据日期值返回年、月、日值 
DecodeTime 根据时间值返回时、分、秒、毫秒值 
EncodeDate 组合年、月、日值为TDateTime类型值 
EncodeTime 组合时、分、秒、毫秒值为TDateTime类型值 
//=============================================================
在一个确定时间上增加月数
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;