【结贴】[请求]几个问题求助一下**

Crazy_wen2006

1. 使用DateTimePicker读取时间，想取光取‘日’，比如DateTimePicker中时间为2008-7-29 ，则取到时间为1900-1-28，代码如下：
procedure TKQBD.button1click(Sender: TObject);
var
  LM: double;
begin

  LM :=dateutils.Dayof(DateTimePicker1.Date);
  Datamain.DataSet.Edit;
  Datamain.DataSet.FieldByName('ZD1').AsDateTime :=LM ;
end;
end.

2.如果想取每个月的全部日期，按照incday(xx,1)可以取得，最后30，31号两天怎么判断，有的话就写上，没有就空白。

3.如果取一个月的天数，想对是周日的天数进行颜色标记，表格可以实现吗？

4.在datagrid中，第一行取了30天日期，怎么在以下行可以填取内容。例如：

zfang

1、取年月日时分秒的函数
DateUtils.DecodeDateTime

zfang

2、取某个月的最后一天
DateUtils.EndOfAMonth

zfang

3、固定格式的，表格文档是可以的，否则不可以；可以用datagrid

zfang

4.按你图上所示，datagrid实现不了，它可以实现下面的形式

Crazy_wen2006

斑竹的做的不错，可以共享下吗？

zfang

这也没什么特别的啊，就根据上面说的来实现就行了。

Crazy_wen2006

dateutils.EndOfAMonth怎么从DateTimePicker1.Date取值？

zfang

你要先用2楼的方法获取当前日期的年、月、日。然后你把年、月当作他的参数，就可以得到这个月份的最后一天了。

Crazy_wen2006

[错误]Biz:\KQGL\KQGL\YWXX.INFO.DIR\KQBD.FormDoc.pas(70, 17): Not enough actual parameters
[错误]Biz:\KQGL\KQGL\YWXX.INFO.DIR\KQBD.FormDoc.pas(73, 18): Not enough actual parameters
代码：
j:=dateutils.decodedatetime(DateTimePicker1.Date)