小问题，给大分！

Question

C#里的MessageBox.Show(DateTime.Now.Ticks.ToString);
怎么样用Delphi写？

Answer 1

如果去delphi区，他们看不懂怎么办？

Answer 2

用Now()函数可以返回当前时间，其中整数部分代表日期，小数部分代表时间，例如0.5表示0.5天即12个小时。用TimeOf函数可以获得时间的值，DateOf函数获得日期的值var   
      SystemTime:   TSystemTime;   
      result:real;   
  begin   
      GetLocalTime(SystemTime);   
      With   SystemTime   do   
          result:=(wHour*3600+wMinute*60+wSecond)/(3600*24);   
      ShowMessage(FloatToStr(result));   
  end;Application.MessageBox也可

Answer 3

如果去delphi区，他们看不懂怎么办？-------------------------------------------------------------------我想决大多数人都看的懂

Answer 4

我想.Net区又相当一部分人是Delphi转过来的

Answer 5

不是看得懂看不懂的问题，是这样两种环境中换算Ticks的方法不一样//如下代码，Delphi和C#结果，误差在１毫秒内const
  DaysToMonth: array[Boolean, 0..12] of Integer =
(
 (0, $1f, $3b, 90, 120, $97, $b5, $d4, $f3, $111, $130, $14e, $16d), //365
 (0, $1f, 60, $5b, $79, $98, $b6, $d5, $f4, $112, $131, $14f, $16e) //366
);function DateToTicks(year, month, day: Integer): Int64;
var
  num, num2: Integer;
begin
  Result := 0;
  if ((year >= 1) and (year <= $270f)) and ((month >= 1) and (month <= 12)) then
  begin
    if (day >= 1) and (day <= (DaysToMonth[IsLeapYear(year)][month] -
      DaysToMonth[IsLeapYear(year)][month - 1])) then
    begin
      num := year - 1;
      num2 := ((((((num * $16d) + (num div 4)) - (num div 100)) +
        (num div 400)) + DaysToMonth[IsLeapYear(year)][month - 1]) + day) - 1;
      Result := num2 * $c92a69c000;
    end;
  end;
end;function TimeToTicks(hour, minute, second, millisecond: Integer): Int64;
var
  num: Int64;
begin
  Result := 0;
  if (((hour < 0) or (hour >= $18)) or ((minute < 0) or (minute >= 60))) or
    ((second < 0) or (second >= 60)) then Exit;
  num := ((hour * $e10) + (minute * 60)) + second;
  Result := num * $989680 + (Int64(millisecond * $989680) div 1000);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  year, month, day,
  hour, minute, second, millisecond: Word;
  tick: Int64;
begin
  DecodeDate(Now, year, month, day);
  DecodeTime(Now, hour, minute, second, millisecond);
  tick := DateToTicks(year, month, day) +
    TimeToTicks(hour, minute, second, millisecond);
  Caption := IntToStr(tick);
end;

Answer 6

ShowMessage(DateTimeToStr(Now));
正解