📄 unitpub.pas
字号:
unit UnitPub;
interface
{ Global Fuctions }
function GetInterval(SrcDT:TDateTime;DesDT:TDateTime):Integer;
implementation
function GetInterval(SrcDT:TDateTime;DesDT:TDateTime):Integer;
var
tmpDT:TDateTime;
i:Integer;
Begin
tmpDT:=DesDT-SrcDT;
i:=1;
if tmpDT<1 then
begin
result:=1;
Exit;
end;
while tmpDT>1 do
begin
tmpDT:=tmpDT-i;
if tmpDT<1 then
begin
result:=i;
Exit;
end;
i:=i+1;
end;
End;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -