知道一个日期比如2007-7-31,怎么解析成它是全年第几个月,星期几,第几个季度啊,全年的第几个周,下半年的第几个周,这个季度的第几个周,这个月的第几个周,下半年的第几个季度。各位达人知道多少告诉小弟多少,小弟在此不胜感激
解决方案 »
- 求 FastReport version 4.5 的开发文档,
- 关于算有效期报警的问题 困扰了我多时 请各位帮忙了
- Installshield x 打包MSDE 2000 的问题
- 在Delphi怎样精确计算三角函数值?
- 在Delphi怎么将图片存入SQL Server 2000中
- 如何获得 每天 第一个用户 登录系统?
- 菜鸟提问:我new application 后,想把类名TForm1换成别的,为什么都不行呢?
- delphi 判断当前时间是不是在规定的时间段
- 要把DBGrid1中的内容打印出来,应该怎么做?
- 关于Corba实现的问题?
- delphi中sql开发数据库,如何保证数据的唯一性?【特急】
- 将bmp文件打印出来
function GetWeek: string;
var
mytime:_SYSTEMTIME;
begin
GetLocalTime(t);
case mytime.wDayOfWeek of
0: Result:='星期日';
1: Result:='星期一';
2: Result:='星期二';
3: Result:='星期三';
4: Result:='星期四';
5: Result:='星期五';
6: Result:='星期六';
end;
end;
//一年第几周
ShowMessage(IntToStr(WeekOfTheYear(Now)));
//一年第几月
ShowMessage(IntToStr(MonthOfTheYear(Now)));
//季度根据月份自己算,其它的都可以算出来
类似万年历一样,现在我剩下的难题是无法计算出,某一个日期是那一年中的第几个周,是它在的半年中的第几个周了,达人知道告诉小弟吧