delphi中时间比较、日期相减、日期比较
2013-03-26 14:07
99 查看
else begin oStartDate := FieldByName('offline_start_date').AsDateTime; oTime := FieldByName('offline_hours').AsInteger; if (FieldByName('offline_flag').asstring = '1') and ( oStartDate <= StrToDate(FormatDateTime('YYYY-MM-DD', Now))) then begin if (ROUND((StrToDate(FormatDateTime('YYYY-MM-DD', Now)) - Trunc(oStartDate))) *24) < oTime then begin //可以脱机 dmComm.UserInfo.offlineHotType := '2'; // 2表示被动脱机 LoginOK := True; dmcomm.SysParam.ConnectMode := 'off-line'; dmcomm.UserInfo.SysAccount := 'local'; CreateMainForm; dmcomm.refreshLocalTables; end else begin i_Offline_hours := FieldByName('ioffline_hours').AsInteger; i_offline_flag := FieldByName('ioffline_flag').AsString; if (i_offline_flag = '1') and (i_Offline_hours>used_i_offline_time) then begin LoginOK := True; dmComm.UserInfo.i_offline_remaining_time := i_Offline_hours - used_i_offline_time; dmcomm.SysParam.ConnectMode := 'off-line'; dmComm.UserInfo.offlineHotType := '1'; //表示自主脱机 dmcomm.UserInfo.SysAccount := 'local'; CreateMainForm; dmcomm.refreshLocalTables; end else begin DialogInformation('此账号没有自主脱机权限或者自主脱机时长已用完'); exit; end; end; end end;
直接见代码就OK了
还有一个简单的DEMO,日期相减获得天数,注意函数的运用
procedure TForm1.btn1Click(Sender: TObject); var d1, d2: TDateTime; d3: Integer; begin d1 := StrToDate(FormatDateTime('YYYY-MM-DD', Now)); d2 := StrToDate('2001-09-01'); d3 := round(d2-d1); Showmessage(IntTostr(d3)); end;
相关文章推荐
- JS时间(日期)比较或相减
- JS时间(日期)比较或相减(暂时停用)
- JS时间(日期)比较或相减
- 日期相减 比较大小 过期时间函数
- access与SqlServer 之时间与日期及其它SQL语句比较
- ASP比较时间的SQL语句ACCESS查询中怎么写日期比较的SQL语句
- Oracle数据库中日期时间的操作比较和加减
- js日期时间格式验证,时间比较
- jQuery 两个日期时间相减
- js日期时间格式验证,时间比较
- 【转载】Delphi获取与设置系统时间格式(长日期与短日期)
- java 时间格式转换及日期比较
- js日期时间比较函数
- java 关于时间的转换,两个时间日期的比较
- 【转】实现Sqlite datediff日期时间相减的方法
- PHP中比较两个时间的大小与日期的差值
- jsp中的日期时间比较
- JS获取系统时间、计算两个日期天数、比较日期大小
- SQL时间相关 - SQL日期,时间比较
- 字符串日期比较和时间差 and java时间操作函数汇总