//你的基本数据是在什么地方?数据库中?文本中?变量中?常量中?
for I := 0 to N - 1 do
if (Now >= StartTime[I]) and (Now <= EndTime[I]) then begin
{ ???????????? }
Break;
end;
for I := 0 to N - 1 do
if (Now >= StartTime[I]) and (Now <= EndTime[I]) then begin
{ ???????????? }
Break;
end;
解决方案 »
- 有哪位朋友做过JBC2360E考勤机的接口程序吗?急啊!!!
- 100分求能直接使用的Delphi 7 从 SQL Server 2005 按条件导出数据到 excel 的代码。
- 为什么我的程序退出后会生成SCACHE.INI和BDESC000之类的文件啊?
- [求助]请问怎样用Delphi实现流量控制?
- 如何用二个按钮代替,richedit的滚动条按钮???
- 自动调整窗口的大小?(给50分,在线等)
- 请教
- 求助函数 InternetSetOptionA 诡异情况,希望达人帮忙
- 怎样使一个form浮在另一个form上
- 各位大侠救命啊,解决不了这个问题我就要失业了。ActiveForm的问题。
- 程序一直报中间的一个地方出问题,请同志们帮助看看,是一个关于复合查询的
- 如何在 delphi中十进制数的每一位变成二进制然后进行异或
TPeriod=record
StartTime: TDateTime;
EndTime: TDateTime;
end;Periods: array of TPeriod;然后在比较的时候用下面的循环
for i:=Low(Periods) to High(Periods) do
if (Now>=Periods[i].StartTime)and(Now<=Periods[i].EndTime) then
begin
...
Break;
end;在设置数组时,先使用SetLength设置数组元素的个数就可以了。
where((start_dt between p_start_dt and p_end_dt)
or (end_dt between p_start_dt and p_end_dt))and rownum < 2;