会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
德罗德
博客园
首页
新随笔
联系
管理
订阅
[Delphi]根据输入日期按年月周日输出日期段
输入变量ADateStart,并为其填写起始日期,变量ADateEnd,计算类型AType,
输出变量ADateStart,变量ADateEnd
procedure
FormatDateByType(AType:Integer;
var
ADateStart, ADateEnd: TDate);
var
//
type
0
日
1
周
2
月
3
年
ADate :TDate;
myYear, myMonth, myDay : Word;
begin
ADate :
=
ADateStart;
case
AType
of
0
:
begin
//
日
ADateStart :
=
ADate;
ADateEnd :
=
ADate
+
1
;
end
;
1
:
begin
//
周 DayOfWeek() Sunday
=
1
if
DayOfWeek(ADate)
<>
2
then
//
<>
Monday
ADateStart :
=
ADate
-
DayOfWeek(ADate)
+
2
else
ADateStart :
=
ADate;
ADateEnd :
=
ADateStart
+
6
;
//
周日
end
;
2
:
begin
//
月 xx
-
xx
-
01
to
xx
-
yy
-
01
DecodeDate(ADate, myYear, myMonth, myDay);
ADateStart :
=
StrtoDate(inttostr(myYear)
+
'
-
'
+
inttostr(myMonth)
+
'
-01
'
);
ADateEnd :
=
incmonth(ADateStart);
end
;
3
:
begin
//
年 xx
-
01
-
01
to
yy
-
01
-
01
DecodeDate(ADate, myYear, myMonth, myDay);
ADateStart :
=
StrtoDate(inttostr(myYear)
+
'
-01-01
'
);
ADateEnd :
=
StrtoDate(inttostr(myYear
+
1
)
+
'
-01-01
'
);
end
;
end
;
end
;
posted @
2009-08-03 10:30
德罗德
阅读(
421
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告