delphi分割指定时间段,如何根据一个参数,分割指定时间为N个段procedure Division_time( start_time:TDateTime, end_time:TDateTime, Division_num :integer)
begin
//start_time 开始时间
//end_time 结束时间
//Division_num 分割数
//大意,将 指定时间内的一小时 分割成4段,每段25分钟
end;
begin
//start_time 开始时间
//end_time 结束时间
//Division_num 分割数
//大意,将 指定时间内的一小时 分割成4段,每段25分钟
end;
解决方案 »
- 新浪微博加密
- 有没有用友财务软件(企业内部账)
- 使用结构指针时,什么时候应当用new,很么时候不用
- dbgrid显示问题
- GGJJ,有谁知道QQ的界面挂起是怎么实现的!!!不够可以加分
- 请 问《程序员》杂志的订阅代号是多少??
- 请问怎样改变DBGrid中字段的字体颜色?比如:DBGrid中的字段"Money",当Money大于5000时候,5000应该红色显示,小于5000则以绿色显示
- 怎样判断某一子目录的存在?
- 关于动态建表的问题?
- 请Delphi高手指点一个C++ Builder的难题----不知道SpeedButton1->Caption的快捷键能否在窗体创建时动态改变??
- Delphi总是卡!
- delphi语法问题!
思路我是有的,假如 当前时间为: 12:00 ,新时间为:13:00如何使用 你给的[(end_time - start_time) * 24 * 60 / Division_num]公式,DELPHI中时间类型为:TDateTime
如: 转换成同一天的时间日期
function ConvertDateTime(time: string): TDateTime;
begin
result := StrToDateTime(FormatDateTime('yyyy-mm-dd ',Now)+time+':00');
end;
当前时间为: 12:00 ,新时间为:13:00新时间-当前时间 = 1,将 指定时间内的一小时 分割成4段,每段25分钟
你的时间采用100进制,4段每段不是15分钟?function ConvertDateTime(time: string): TDateTime;
begin
result := StrToDateTime(FormatDateTime('yyyy-mm-dd ',Now)+time+':00');
end;procedure TForm1.Button2Click(Sender: TObject);
var
minutes: integer;
dt1,dt2: TDateTime;
begin
dt1 := ConvertDateTime('12:00');
dt2 := ConvertDateTime('13:00');
minutes := MinutesBetween(dt1,dt2)+1;
ShowMessage('每段时间:'+IntToStr(minutes div 4)+'分钟');
end;
当前时间为: 12:00 ,新时间为:13:00新时间-当前时间 = 1,将 指定时间内的一小时 分割成4段,每段25分钟
你的时间采用100进制,4段每段不是15分钟?function ConvertDateTime(time: string): TDateTime;
begin
result := StrToDateTime(FormatDateTime('yyyy-mm-dd ',Now)+time+':00');
end;procedure TForm1.Button2Click(Sender: TObject);
var
minutes: integer;
dt1,dt2: TDateTime;
begin
dt1 := ConvertDateTime('12:00');
dt2 := ConvertDateTime('13:00');
minutes := MinutesBetween(dt1,dt2)+1;
ShowMessage('每段时间:'+IntToStr(minutes div 4)+'分钟');
end;
谢谢,差不多了,再请教一个问题,但是我想将这个 分割的4个段 时间段,如:
12:15
12:30
12:45
13:00
再次增加到控件 ListBox1 中
当前时间为: 12:00 ,新时间为:13:00新时间-当前时间 = 1,将 指定时间内的一小时 分割成4段,每段25分钟
你的时间采用100进制,4段每段不是15分钟?function ConvertDateTime(time: string): TDateTime;
begin
result := StrToDateTime(FormatDateTime('yyyy-mm-dd ',Now)+time+':00');
end;procedure TForm1.Button2Click(Sender: TObject);
var
minutes: integer;
dt1,dt2: TDateTime;
begin
dt1 := ConvertDateTime('12:00');
dt2 := ConvertDateTime('13:00');
minutes := MinutesBetween(dt1,dt2)+1;
ShowMessage('每段时间:'+IntToStr(minutes div 4)+'分钟');
end;
谢谢,差不多了,再请教一个问题,但是我想将这个 分割的4个段 时间段,如:
12:15
12:30
12:45
13:00
再次增加到控件 ListBox1 中
procedure TForm1.Button2Click(Sender: TObject);
var
dt1,dt2: TDateTime;
minutes,i,interval: integer;
begin
dt1 := ConvertDateTime('12:00');
dt2 := ConvertDateTime('13:00'); minutes := MinutesBetween(dt1,dt2)+1;
interval:= minutes div 4; for i:=1 to 4 do ListBox1.Items.Add(FormatDateTime('hh:nn',IncMinute(dt1,i*interval)));
end;
begin
//start_time 开始时间
//end_time 结束时间
//Division_num 分割数
//大意,将 指定时间内的一小时 分割成4段,每段25分钟
//从 开始时间 开始每25分钟分割一分,直到 结束时间 为止,并添加相关时间到 ListBox1
end;