怎样定义一个datetime类型值

Question

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

Answer 1

推荐下自己写的函数，可带格式转换日期字符串http://harryfin.spaces.live.com/Blog/cns!31E57C5D97ECDF5!409.entry?sa=463291999

Answer 2

感觉可以用这个函数实现。
Unit
SysUtilsfunction EncodeDate(Year, Month, Day: Word): TDateTime;

Answer 3

这个简单,先定义好日期格式:
  ShortDateFormat:='yyyy/mm/dd';   //delphi中的全程变量
  DateSeparator:='/';               //这个必须的
  DateTimePicker1.DateTime:=strtodate('1900/1/1');当然这样也可以:
  ShortDateFormat:='yyyy-mm-dd';   //delphi中的全程变量
  DateSeparator:='-';               //这个必须的
  DateTimePicker1.DateTime:=strtodate('1900-1-1');

Answer 4

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;