怎样定义一个datetime类型值解决思路

怎样定义一个datetime类型值
我需要为tdatetimepicker赋值，该怎样定义？
在xp下，用strtodate('1900-1-1'),但在win7下报错
在win7下，用strtodate（'1900/1/1'）,但在xp下又不行
请高手指点啊

[解决办法]
推荐下自己写的函数，可带格式转换日期字符串

http://harryfin.spaces.live.com/Blog/cns!31E57C5D97ECDF5!409.entry?sa=463291999
[解决办法]
感觉可以用这个函数实现。
Unit
SysUtils

function EncodeDate(Year, Month, Day: Word): TDateTime;

[解决办法]
这个简单,先定义好日期格式:
ShortDateFormat:='yyyy/mm/dd'; //delphi中的全程变量
DateSeparator:='/'; //这个必须的
DateTimePicker1.DateTime:=strtodate('1900/1/1');

当然这样也可以:
ShortDateFormat:='yyyy-mm-dd'; //delphi中的全程变量
DateSeparator:='-'; //这个必须的
DateTimePicker1.DateTime:=strtodate('1900-1-1');

[解决办法]

Delphi(Pascal) code

var    settings: TFormatSettings;  dt: TDateTime;begin  GetLocaleFormatSettings(GetUserDefaultLCID, settings);  settings.DateSeparator := '-';  settings.TimeSeparator := ':';  settings.ShortDateFormat := 'yyyy-mm-dd';  settings.ShortTimeFormat := 'hh:nn:ss';  dt:= strToDateTime('2010-3-19 08:09:10',settings);end;