RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间 > 正文

delphi StartCount() 时间计数器

作者:admin 来源: 日期:2018/1/15 19:57:04 人气: 标签:

{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}

{时间 计时器 00:01:14}
//label1.Caption:= StartCount();
function StartCount():string;
{$j+}
const
      h:Integer=0;
      m:Integer=0;
      s:integer=0;
{$j-}
begin
  inc(s);
  if s>=60 then
  begin
    Inc(m);
    s:=0;
  end;
  if m>=60 then
  begin
    Inc(h);
    m:=0;
  end;
  Result:=Format('%.2d:%.2d:%.2d',[h,m,s]);
end;
{倒计时}
// label1.Caption:=dec1;
function dec1():string;
{$j+}
const i:Integer=60*5;//设置成一个变量
{$j-}
begin
   Dec(i);
   Result:=Format('剩余时间:%d',[i]);
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料