【结帖】DateTimePicker[请求]**

lotus

1、给DateTimePicker赋个默认值，DateTimePicker1.Date:=SysUtils.Date;   如现在是2008-01-05
我要设置 DateTimePicker2的日期在原基础上加一年（显示为2009-01-05）怎么做？
2、我要把DateTimePicker的值赋给一个数据集的一个字段，不让它带时分秒怎么做？
3、另外，我要限制一个文本框只能输入正整数怎么做？
请教各位高手啊，先谢过了

565118680

我也想知道!

lixy

1  .
NameSpace: Business.System    ClassDelcare: Business.System.DateUtils
--------------------------------------------------------------------------------
static function IncYear(AValue: Double; ANumberOfYears: Longint): Double;

lixy

2.
NameSpace: Business.System    ClassDelcare: Business.System.SysUtils
--------------------------------------------------------------------------------
static procedure DateTimeToString(Result: string; Format: string; DateTime: Double);

var
  tmp:string;
begin
    DateTimeToString(tmp,'YYYY-MM-DD'dtp.date);
    dataset.fieldbyname('date').asstring:=tmp;
end;

lixy

3、在字段定义上设置“有效输入字符”  1,2,3,4,5,6,7,8,9,0

zfang

楼主，还有问题吗？
没问题就结帖了！！