qq在线时间计算器

第一次写了个小东西，准备放到网上，不过不知道应该那里放。一个计算qq对应等级所需要的在线时间的小东西！

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tshi2,Tshijian : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tshijian:= strtoint(Edit1.Text);
  Label4.Caption:=inttostr(5*Tshijian*Tshijian+15*Tshijian);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Tshi2:=Tshijian+1;
   label4.Caption:=inttostr(5*Tshi2*Tshi2+15*Tshi2-5*Tshijian*Tshijian-15*Tshijian);
end;

end.

==============================

最新的等级计算方式如下

等级 活跃天数 升级天数 等级图标
1 5 7 ☆
2 12 9 ☆☆
3 21 11 ☆☆☆
4 32 13 ￠
5 45 15 ￠☆
6 60 17 ￠☆☆
7 77 19 ￠☆☆☆
8 96 21 ￠￠
9 117 23 ￠￠☆
10 140 25 ￠￠☆☆
11 165 27 ￠￠☆☆☆
12 192 29 ￠￠￠
13 221 31 ￠￠￠☆
14 252 33 ￠￠￠☆☆
15 285 35 ￠￠￠☆☆☆
16 320 37 ◎
17 357 39 ◎☆
18 396 41 ◎☆☆
19 437 43 ◎☆☆☆
20 480 45 ◎￠
21 525 47 ◎￠☆
22 572 49 ◎￠☆☆
23 621 51 ◎￠☆☆☆
24 672 53 ◎￠￠
25 725 55 ◎￠￠☆
26 780 57 ◎￠￠☆☆
27 837 59 ◎￠￠☆☆☆
28 896 61 ◎￠￠￠
29 957 63 ◎￠￠￠☆
30 1020 65 ◎￠￠￠☆☆
31 1085 67 ◎￠￠￠☆☆☆
32 1152 69 ◎◎
33 1221 71 ◎◎☆
34 1292 73 ◎◎☆☆
35 1365 75 ◎◎☆☆☆
36 1440 77 ◎◎￠
37 1517 79 ◎◎￠☆
38 1596 81 ◎◎￠☆☆
39 1677 83 ◎◎￠☆☆☆
40 1760 85 ◎◎￠￠
41 1845 87 ◎◎￠￠☆
42 1932 89 ◎◎￠￠☆☆
43 2021 91 ◎◎￠￠☆☆☆
44 2112 93 ◎◎￠￠￠
45 2205 95 ◎◎￠￠￠☆
46 2300 97 ◎◎￠￠￠☆☆
47 2397 99 ◎◎￠￠￠☆☆☆
48 2496 101 ◎◎◎
49 2597 103 ◎◎◎☆
50 2700 105 ◎◎◎☆☆
51 2805 107 ◎◎◎☆☆☆
52 2912 109 ◎◎◎￠
53 3021 111 ◎◎◎￠☆
54 3132 113 ◎◎◎￠☆☆
55 3245 115 ◎◎◎￠☆☆☆
56 3360 117 ◎◎◎￠￠
57 3477 119 ◎◎◎￠￠☆
58 3596 121 ◎◎◎￠￠☆☆
59 3717 123 ◎◎◎￠￠☆☆☆
60 3840 125 ◎◎◎￠￠￠
61 3965 127 ◎◎◎￠￠￠☆
62 4092 129 ◎◎◎￠￠￠☆☆
63 4221 131 ◎◎◎￠￠￠☆☆☆
64 4352 133 ◎◎◎◎