开发工具:
文件大小: 214kb
下载次数: 0
上传时间: 2012-12-04
详细说明： procedure TFRM_Date.DateChange(MyTime: TDateTime); var i, S: integer; StarNo: integer; Present: TDateTime; Year, Month, Day: Word; begin Label20.Caption := IntToStr(DateUtils.YearOf(Mytime)); Label17.Caption := IntToStr(DateUtils.MonthOf(Mytime)); Label16.Caption := Label17.Caption; Label1.Caption := IntToStr(DateUtils.YearOf(Mytime)); Label21.Caption := Copy(CnSkyStemOfYear(Mytime), 1, 2) + CnanimalOfYear(Mytime); lbl1.Caption := '选定日期为：'+DateToStr(Mytime); lbl2.Caption := Copy(CnSkyStemOfYear(Mytime), 1, 2) + Copy(CnanimalOfYear(Mytime),1,2)+'年'+CnMonthOfDate(Mytime)+CnDayOfDate(Mytime); lbl3.Caption := GetLunarHolDay(Mytime)+CnDayOfDateJr(Mytime)+Holiday(Mytime,DayOf(Mytime)); for i := 1 to 37 do begin CnDate[i].Visible := false; ChnDate[i].Visible := false; CnDate[i].Font.Size := 11; CnDate[i].Color := self.Color; ChnDate[i].Color := self.Color; if (((i) mod 7) = 0) or (((i) mod 7) = 1) then begin CnDate[i].Font.Color := clRed; ChnDate[i].Font.Color := clRed; end else begin CnDate[i].Font.Color := clBlack; ChnDate[i].Font.Color := Cnday.Font.Color; end; end; DecodeDate(MyTime, Year, Month, Day); Present := EncodeDate(Year, Month, 1); StarNo := dayofweek(Present); s := starno + DayOfMonth(Present) - 1; try for i := StarNo to s do begin Present := EncodeDate(Year, Month, i - StarNo + 1); CnDate[i].Caption := IntToStr(i - StarNo + 1); CnDate[i].Tag := i - StarNo + 1; ChnDate[i].Tag := CnDate[i].Tag; ChnDate[i].Caption := CnDayOfDate(Present); if ChnDate[i].Caption = '初一' then begin ChnDate[i].Caption := CnMonthOfDate(Present); ChnDate[i].Font.Color := clRed; end ; if length(Holiday(MyTime, i - StarNo + 1)) > 3 then begin ChnDate[i].Caption := Holiday(MyTime, i - StarNo + 1); ChnDate[i].Font.Color := $000080FF; end; if DateCn.GetLunarHolDay(Present) <> '' then begin ChnDate[i].Caption := GetLunarHolDay(Present); ChnDate[i].Font.Color := $00FF5353; end; if DateCn.CnDayOfDateJr(Present) <> '' then begin ChnDate[i].Caption := CnDayOfDateJr(Present); ChnDate[i].Font.Color := $000080FF; end; if i - StarNo + 1 = day then begin Shape2.Left := CnDate[i].left - 1; Shape2.Top := CnDate[i].top + 1; Label22.Caption := Constellation(Present, day); end; CnDate[i].Visible := true; ChnDate[i].Visible := true; end; except on EConvertError do begin exit; end else exit; end; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
