会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
ITer
博客园
首页
新随笔
联系
订阅
管理
时间比较
Code
1
var
2
t:
string
;
3
i:integer;
4
5
begin
6
t:
=
formatdatetime(
'
hhnn
'
,now);
7
i:
=
strtoint(t);
8
if
(i
>
0800
)
and
(i
<
1500
)
then
9
10
showmessage(t);
11
12
end
;
posted @
2008-11-05 09:06
混混的IT生涯
阅读(
164
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告