| biggj
24857
|
2006/7/10 23:04:35 |
To Miky,我有点问题想问你,我把我的QQ留下行吗?
QQ:6470504 |
| wuwenhui2004
24221
|
2006/6/11 21:37:06 |
搂主可不可以教教我.我现在要做哪个日历
不知道从哪动手.请你指教指教 |
| qiao2
19624
|
2005/11/29 22:11:12 |
| 我用的上delphi7、winxp安装时报告找不到AAFont单元类库，怎么办？ |
| tim001
12543
|
2005/2/16 10:21:43 |
| 谢谢！ |
| delphifox
11881
|
2005/1/18 15:09:32 |
| 好像是不错，装不上。 |
| happylife
6668
|
2004/7/9 16:36:27 |
| 又发现一个BUG，2004-7-8阳历，你看看它的农历日期 |
| yatouruihua
5900
|
2004/6/10 12:03:17 |
miky:
我想要返回一个当前日期所在的一个星期的时间段,不知道该怎么写啊 |
| gdgyy001
5849
|
2004/6/9 9:20:35 |
| 谢谢miky，现在可以用了。在次感谢你为我们提供了这么好的控件！！ |
| miky
5830
|
2004/6/8 16:33:19 |
你在Tools->Environment options -> library -> libarary path 加上AAFont的文件夹
记住改上面提到的bug,直接把这个过程拷过去覆盖就行了。 |
| gdgyy001
5824
|
2004/6/8 14:50:29 |
| 我用的是d7，安装不上去，提示没有aafont，但aafont我已装过。 |
| miky
5804
|
2004/6/7 22:06:09 |
谢谢您又发现了一个bug
修改
// 求年柱，月柱，日柱
//TheDate为当天的公历日期
function GetGZ(TheDate: TDate): TGzDate;
var
term: TDate;
sy, sm, sd: Word;
begin
DecodeDate(TheDate, sy, sm, sd);
if sy < 1900 then exit;
term:= sTerm(sy, (sm - 1) * 2); // 当月的节气日期
//年柱 1900年立春后为庚子年(60进制36)
Result.Year:= sy - 1900 + 36;
//依立春日期调整年柱.立春日固定在公历2月
//谢谢HappyLife发现了这个Bug,如果是一月，那么肯定在立春之前了，加多个判断
//if (sm = 2) and (TheDate < term) then 这里错了
// Result.Year:= sy - 1900 + 35;
if (sm = 1) or ((sm = 2) and (TheDate < Term)) then
Result.Year:= sy - 1900 + 35;
//月柱 农历1900年1月小寒以前为 丙子月(60进制12)
Result.Month:= (sy - 1900) * 12 + sm + 11;
//依节气调整月柱
if TheDate >= DateOf(term) then Result.Month:= (sy - 1900) * 12 + sm + 12;
// 1900/1/1 日柱为甲辰日(60进制10)
Result.Day:= DaysBetween(EncodeDate(1900,1,1),TheDate) + 10;
end;
|
| happylife
5789
|
2004/6/7 17:19:28 |
Miky:
你好，又发现你控件的一个BUG，描述如下：
你的控件所求出的年柱有不正正确的情况，是与立春有关，如果２００４年１月７号（公历）的年柱应为“癸未”，而不应该为“甲申”，看了你写的代码，是因为立春的原因，我这里已经改了，但不知道能不能正确，希望你也能把它改一下，让年柱也正确，谢谢。
另外，miky，我想知道你的联系方式，MSN也行，QQ也行，我的QQ是281361369，MSN是jfs231@hotmail.com，我感觉你控件写的不错，而且代码风格也不错，希望有问题可以向您请教，谢谢。 |
| gxnxz
5393
|
2004/5/29 19:03:03 |
| miky,我是菜鸟,看不懂代码, 不知如何使用.能举例吗? |
| miky
4237
|
2004/4/24 14:46:21 |
修改358行为：
OutputStr := FormatDateTime('yyyy',FDate)+'年'+FormatDateTime('m',FDate)+'月';
这样改不太好：
OutputStr := FormatDateTime('yyyy年m月',FDate);
好点。
其实我用的是FormatDateTime('ddddd',FDate); 和你控制面版的设定有关，把他设为长日期就行了。 |
| miky
4236
|
2004/4/24 14:27:32 |
是没用，我也是抄别人的，没仔细推敲。呵呵。
我上传了个新版本，比旧的显示速度快了很多。
http://www.efile.com.cn/eFile/miky/LssCalendar.rar |
| happylife
4184
|
2004/4/23 10:24:12 |
Miky老兄：
函数function TLssCalendar.GetGZ(y, m: integer; TheDate: TDate): TGzDate;中的参数(y,m:Integer),是不是没有用啊
|
| xaccc
4162
|
2004/4/22 18:19:41 |
修改358行为：
OutputStr := FormatDateTime('yyyy',FDate)+'年'+FormatDateTime('m',FDate)+'月'; |
| gglong
3481
|
2004/3/24 11:19:24 |
| 还是有点问题呀，就是日期的显示 还是为： 20043 呀。。 |
| miky
3331
|
2004/3/17 21:48:09 |
TO:hbqckzj
已经有函数提供了，只是我不知道显示在什么地方，字数实在太多，还真难找到地方放。您觉得放什么地方显示好点？ |
| miky
3330
|
2004/3/17 21:39:33 |
To: happylife
谢谢你发现了这个Bug,如果双击标题栏最大化窗口的话，确实有这个毛病。
比较简单的解决办法如下，不是很好的解决办法，先用着吧 ：）
constructor TLssCalendar.Create( AOwner: TComponent );
begin
inherited;
ControlStyle := (ControlStyle - [ csAcceptsControls, csNoStdEvents, csSetCaption ] ) + [ csReflector ];
FDate := DateOf(Now);
FViewDate := FDate; //加上这一句，惭愧，竟然犯了忘记赋初值的低级毛病。
FCalColors := TLssCalColors.Create(self);
GetFirstDay;
Width := 300;
Height := 210;
Font.Name := '宋体';
Font.Charset := GB2312_CHARSET;
TabStop := True;
Color := FCalColors.BackColor;
FSmoothText := False;
DoubleBuffered := True;
end; |
