痛心告别ＣＳＤＮ！！！！
我这人其实很俗，到这里灌水不为别的，只为了利用自己的一些经验与别人交流，以及赚一点可以让自己沾沾自喜的专家分。
如今CSDN的许多提问人员，你给它回答了你的看法、思路或方向，他很不满意，非要把完整的解法或编码写出来，不然不算，为什么这么说呢？因为最后一分未得！这让我觉得有些人比幼秩园的小朋友还难侍候，对此也极为失望！！！相信许多人一定有同感，这样只会造就一群懒人，根本就达不到本坛建立的初衷。
如今我只是偶儿来逛逛，希望能遇到一些老朋友，及对某些问题进行交流，而对于许多事已经没有那么多的热情去做了。每个人有自己的看法，希望大家能互相体谅。
问题点数：280、回复次数：28Top
1 楼rh（花覆茅檐）回复于 2001-06-08 13:27:00 得分 12
哎！不见得都是这样子的啊！
还是留下来吧！
哪个论坛没有你说的情况呢！Top
2 楼comsun（comsun）回复于 2001-06-08 13:27:00 得分 16
和这位兄弟感同身受！
有些人太懒了！以为只要有几分就有一大群人帮他解决问题，甚至是很难的问题！以为大家都是冲着几个破分来的！着实可气！Top
3 楼whchh（chengj）回复于 2001-06-08 13:34:00 得分 12
那就点到为止吧！Top
4 楼fengfengfeng（枫）回复于 2001-06-08 13:36:00 得分 12
别走好不好Top
5 楼clacklin（海风）回复于 2001-06-08 13:39:00 得分 0
嘿，刚再看了以前的一些回答，想不到一下子又找到了一个鲜例（这里并不针对该问主，特此声明）：
假设下列条件：
若第1周天数>=4，则为第1周，若该月实际所跨周数为5，则第4、5周为第4周；
若第1周天数<4，则第1、2周为第1周，若该月实际所跨周数为6，则第5、6周为第4周；
总之一个月最多只有4周，我想得到某日期为该月的第几周，这个函数怎么实现？
回复贴子：
回复人：clacklin(海风) (2001-5-30 16:27:00) 得0分
没有。但自己很容易实现的，结合dayofweek函数。
回复人：Zheast(zheast) (2001-5-30 16:54:00) 得0分
自己动手吧
回复人：Apollo47(阿波罗) (2001-5-30 17:33:00) 得0分
DayofWeek 得到这个月第一天是星期几。
MonthDays[IsLeapYear(年份），月份] 得到这个月有多少天。
再根据这些就可推算出你想要的东东了~~~~~~~~~
回复人：zuojun770206(小狐狸) (2001-5-30 18:02:00) 得0分
DayofWeek(Firstday) 得到这个月第一天是星期几。
DayofWeek(now) 得到当天是星期几。
(now - first) div 7
回复人：helpmeplease(以后再取) (2001-6-8 8:58:00) 得34分
function TPmms110.getMonthWeekNum (fDate:Tdatetime):integer;
var OrderInWeek:integer;
year,month,day:word;
firstDayOfMonth:Tdatetime;
begin
DecodeDate(fDate,year,month,day);
firstDayOfMonth:=EncodeDate(year,month,1);
OrderInWeek:=dayOfWeek(firstDayOfMonth)-1;
if OrderInWeek<1 then OrderInWeek:=7;
result:=((day+OrderInWeek-2) div 7) +1;
if (OrderInWeek>4) and (result>1) then
result:=result-1;
if result>4 then result:=4;
end;
这里我不由感叹本人的懒惰，也不由佩服最后一人的细心！我在想，要是我继续在这里，我有可能做到最后回答的老兄的那种程度吗？Top
6 楼Virtual（hactech.51.net）回复于 2001-06-08 13:41:00 得分 12
同感 所以从不回答问题 最多灌点醋 但也不会离开 这里 Top
7 楼clacklin（海风）回复于 2001-06-08 13:43:00 得分 0
斑主，这问题能留在Delphi版吗？Top
8 楼111222（www.111222.cn）回复于 2001-06-08 13:43:00 得分 12
yTop
9 楼yemagxy（把酒言欢）回复于 2001-06-08 13:43:00 得分 12
你的想法是正确的，其实没必要在意别人，
论坛这么多人，什么样的人都有啊Top
10 楼囡囡（）回复于 2001-06-08 13:44:00 得分 12
同意野马，因为我也属马Top
11 楼holyfire（谁最衰啊你最衰，谁最帅啊我最帅）回复于 2001-06-08 13:48:00 得分 12
哈哈，事实总是残忍的，世上惰人总是多于勤劳的人，如果你看不惯可以不发话，做壁上观，谈论技术的话题还是有的，本人从来没想到赚多少专家分，有会的问题就答，到是捞了一票，不过专家分现在好象没什么用，现在我的杂志还没到手呢，据说这几天就到了，美滋滋的等待中......，不过我觉得最大的收获是学到了很多以前不知道的知识和开阔了视野，我参与的问题(共1971个)我得分的问题(共671个)，呵呵，和平均水平差不多吗。Top
12 楼Kingron（单身走我路……）回复于 2001-06-08 13:48:00 得分 12
有同感.可惜有心无力~~~~~~~~~Top
13 楼zb_china（于是开始苏鲁之的堕落）回复于 2001-06-08 13:49:00 得分 12
因此离开未免有点太过执著.Top
14 楼hahaha123（）醩絩權鈀浣（）回复于 2001-06-08 13:50:00 得分 12
????????????????????????????Top
15 楼clacklin（海风）回复于 2001-06-08 13:51:00 得分 0
我就说我这人俗不可耐吧。可是一分未得，分明是自己的回答人家根本就不承认，只是觉得很失落吧。Top
16 楼Dev（东方云龙）回复于 2001-06-08 13:55:00 得分 12
很久很久以前我就没在这问过技术问题，也没回答过技术问题，只是偶尔灌一下水。
*^_^*Top
17 楼taotaoqiqi（淘淘气气）回复于 2001-06-08 13:58:00 得分 12
在这里，我只灌水，呵呵Top
18 楼clacklin（海风）回复于 2001-06-08 16:32:00 得分 0
其实，我是很少灌水的，因为我不是很空虚。（大量的臭鸡蛋扔过来了。。。。）Top
19 楼panda_w（好想睡啊！）回复于 2001-06-08 17:06:00 得分 12
哦？！Top
20 楼ephemeral（摩天轮）回复于 2001-06-08 17:09:00 得分 12
可惜Top
21 楼longyear（龙也爱人：我用幻觉触摸你那遥远的美丽…）回复于 2001-06-08 17:35:00 得分 12
:-(Top
22 楼linghuye（令狐叶）回复于 2001-06-08 19:41:00 得分 12
言而无信的人太多.
我现在只对这里的灌水乐园有兴趣,工作学习之余来这轻松一下还是不错的.
为了几个专家分生气,不值得.Top
23 楼clacklin（海风）回复于 2001-06-08 21:02:00 得分 0
所以我就说，不太想到论坛里灌水了。其实我并不生气，只是对许多人感到失望而已。（就跟扶不起的阿斗一样）Top
24 楼CDSoftwareWj（95927）回复于 2001-06-08 21:09:00 得分 12
对头Top
25 楼bodies（唏嘘嘅猪肉佬）回复于 2001-06-08 21:14:00 得分 12
....人多了什么人都有Top
26 楼wangxd1976（东东）回复于 2001-06-09 00:01:00 得分 12
想走你就走吧
想留你就留吧Top
27 楼renyukun（吐一吐就习惯啦）回复于 2001-06-09 00:09:00 得分 12
走？？？
我是真的不想离开，我不希望面对计算机时总是那些枯燥的代码。Top
28 楼cbc（逍遥子）回复于 2001-06-09 00:14:00 得分 12
好象这个世界缺了谁都行？
只要自己认为对的，就去做吧！！
不要忧郁了，愿生活精彩，诸位！！！
常回来侃侃Top
