分时间片计算包间费演示程序
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, DateUtils;
type
TForm1 = class(TForm)
DTPStartDate: TDateTimePicker;
DTPStartTime: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Memo1: TMemo;
DTPEndTime: TDateTimePicker;
DTPEndDate: TDateTimePicker;
DTP01A: TDateTimePicker;
DTP01B: TDateTimePicker;
Label3: TLabel;
DTP02A: TDateTimePicker;
Timer1: TTimer;
DTP02B: TDateTimePicker;
DTP03A: TDateTimePicker;
DTP03B: TDateTimePicker;
DTP04A: TDateTimePicker;
DTP04B: TDateTimePicker;
DTP05A: TDateTimePicker;
DTP05B: TDateTimePicker;
DTP06A: TDateTimePicker;
DTP06B: TDateTimePicker;
Label4: TLabel;
procedure DTP01BChange(Sender: TObject);
procedure DTP02BChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DTP03BChange(Sender: TObject);
procedure DTP04BChange(Sender: TObject);
procedure DTP05BChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DTP01BChange(Sender: TObject);
begin
if DTP01B.Time < DTP01A.Time then begin DTP01B.Time := DTP01A.Time; exit; end;
if SecondsBetween(DTP01B.Time, strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99')) = 0 then
begin
DTP02A.Visible := false; DTP02B.Visible := false; DTP03A.Visible := false; DTP03B.Visible := false; DTP04A.Visible := false; DTP04B.Visible := false; DTP05A.Visible := false; DTP05B.Visible := false; DTP06A.Visible := false; DTP06B.Visible := false;
end else
begin
DTP02A.Visible := true; DTP02B.Visible := true; DTP02B.Time := strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99');
DTP02A.Time := IncSecond(DTP01B.Time, 1);
end;
end;
procedure TForm1.DTP02BChange(Sender: TObject);
begin
if DTP02B.Time < DTP02A.Time then begin DTP02B.Time := DTP02A.Time; exit; end;
if SecondsBetween(DTP02B.Time, strtodatetime(formatDatetime('yyyy-MM-dd', DTP02B.date) + ' 23:59:59.99')) = 0 then
begin
DTP03A.Visible := false; DTP03B.Visible := false; DTP04A.Visible := false; DTP04B.Visible := false; DTP05A.Visible := false; DTP05B.Visible := false; DTP06A.Visible := false; DTP06B.Visible := false;
end else
begin
DTP03A.Visible := true; DTP03B.Visible := true; DTP03B.Time := strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99');
DTP03A.Time := IncSecond(DTP02B.Time, 1);
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DTP01B.Time := strtodatetime(formatDatetime(' hh:mm:ss', strtodatetime(' 23:59:59.99')));
end;
procedure TForm1.DTP03BChange(Sender: TObject);
begin
if DTP03B.Time < DTP03A.Time then begin DTP03B.Time := DTP03A.Time; exit; end;
if SecondsBetween(DTP03B.Time, strtodatetime(formatDatetime('yyyy-MM-dd', DTP03B.date) + ' 23:59:59.99')) = 0 then
begin
DTP04A.Visible := false; DTP04B.Visible := false; DTP05A.Visible := false; DTP05B.Visible := false; DTP06A.Visible := false; DTP06B.Visible := false;
end else
begin
DTP04A.Visible := true; DTP04B.Visible := true; DTP04B.Time := strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99');
DTP04A.Time := IncSecond(DTP03B.Time, 1);
end;
end;
procedure TForm1.DTP04BChange(Sender: TObject);
begin
if DTP04B.Time < DTP04A.Time then begin DTP04B.Time := DTP04A.Time; exit; end;
if SecondsBetween(DTP04B.Time, strtodatetime(formatDatetime('yyyy-MM-dd', DTP03B.date) + ' 23:59:59.99')) = 0 then
begin
DTP05A.Visible := false; DTP05B.Visible := false; DTP06A.Visible := false; DTP06B.Visible := false;
end else
begin
DTP05A.Visible := true; DTP05B.Visible := true; DTP05B.Time := strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99');
DTP05A.Time := IncSecond(DTP04B.Time, 1);
end;
end;
procedure TForm1.DTP05BChange(Sender: TObject);
begin
if DTP05B.Time < DTP05A.Time then begin DTP05B.Time := DTP05A.Time; exit; end;
if SecondsBetween(DTP05B.Time, strtodatetime(formatDatetime('yyyy-MM-dd', DTP05B.date) + ' 23:59:59.99')) = 0 then
begin
DTP06A.Visible := false; DTP06B.Visible := false;
end else
begin
DTP06A.Visible := true; DTP06B.Visible := true; DTP06B.Time := strtodatetime(formatDatetime('yyyy-MM-dd', DTP01B.date) + ' 23:59:59.99');
DTP06A.Time := IncSecond(DTP05B.Time, 1); DTP06B.Enabled := false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tempCurrDate, tempbegin, tempend: Tdatetime;
tempTotNum, i: integer;
YorN: boolean; //判断是不是计算完成的标志
begin
YorN := true; i := 1;
if DTP06A.Visible then tempTotNum := 6 else if DTP05A.Visible then tempTotNum := 5 else if DTP04A.Visible then tempTotNum := 4 else if DTP03A.Visible then tempTotNum := 3 else if DTP02A.Visible then tempTotNum := 2 else if DTP01A.Visible then tempTotNum := 1;
tempCurrDate := strtodatetime(formatDatetime('yyyy-MM-dd', DTPStartDate.date) + formatDatetime(' hh:mm:ss', DTPStartTime.Time));
while YorN do
begin
for i := 1 to tempTotNum do
begin
// TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'A')).Time;
tempbegin := strtodatetime(formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', (TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'A')).Time)));
tempend := strtodatetime(formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', (TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'B')).Time)));
if (tempCurrDate >= tempbegin) and (tempCurrDate <= tempend) then
begin
if strtodatetime(formatDatetime('yyyy-MM-dd', DTPEndDate.date) + formatDatetime(' hh:mm:ss', DTPEndTime.Time)) <= (strtodatetime(formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', (TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'B')).Time)))) then
begin
Memo1.Lines.Add(formatDatetime('yyyy-MM-dd hh:mm:ss', tempCurrDate) + '--->' + formatDatetime('yyyy-MM-dd', DTPEndDate.date) + formatDatetime(' hh:mm:ss', DTPEndTime.Time));
exit;
end
else
begin
Memo1.Lines.Add(formatDatetime('yyyy-MM-dd hh:mm:ss', tempCurrDate) + '--->' + formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', (TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'B')).Time)));
tempCurrDate := IncSecond(strtodatetime(formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', (TDateTimePicker(FindComponent('DTP0' + trim(inttostr(i)) + 'B')).Time))));
end;
end;
end;
//如果超过一天了话再循环计算：tempCurrDate是已经加了一秒后的时间。
//tempCurrDate := strtodatetime(formatDatetime('yyyy-MM-dd', tempCurrDate) + formatDatetime(' hh:mm:ss', tempCurrDate));
if tempCurrDate >= strtodatetime(formatDatetime('yyyy-MM-dd', DTPEndDate.date) + formatDatetime(' hh:mm:ss', DTPEndTime.Time)) then YorN := false else YorN := true;
end;
end;
end.
