日期时间转换

var Year,Month,Day,Hour,Minute,Second,MilliSecond:Word;
MyDate,MyTime,MyDateTime:TDateTime;

数字转日期  MyDate:=EncodeDate(Year,Month,Day);
数字转时间  MyTime:=EncodeTime(Hour,Min,0,0);
     MyDateTime:=EncodeDateTime(Year,Month,Day,Hour,Minute,Second,MilliSecond);
分离时分秒  DecodeTime(Time,Hour,Minute,Second,MilliSecond);
分离年月日  DecodeDate(Date,Year,Month,Day);

字符转日期时间  StrToDateTime('2002-12-30 10:30:00 am')
日期转字符  DateToStr(Date)

求两时间的天数、小时、分
天=Trunc(DateTime2-DateTime1);
时=HourOf(DateTime2-DateTime1);
分=MinuteOf(DateTime2-DateTime1);
两时间的小时：HoursBetween(Now, Old_DateTime);
两时间的分钟：MinutesBetween(Now, Old_DateTime);
两时间的毫秒: var OldTime:DWORD;
              OldTime:=GetTickCount;
              GetTickCount-OldTime;

时间加减
减少分钟  MyTime:=IncMinute(MyTime,-5);
增加天数  MyDate:=IncDay(MyDate,1);
增加月份  MyDate:=IncMonth(MyDate,1);

设置日期显示格式
  DateSeparator:='-';
  ShortDateFormat:='yyyy-mm-dd';
  LongDateFormat:='yyyy-mm-dd';

设置系统时间
Var
  MyTime:TSystemTime;
Begin
  With MyTime do
  Begin
    Wyear:=2002;
    Wmonth:=2;
    Wday:=28;
    Whour:=12;
    Wminute:=30;
    Wsecond:=10;
  end;
  SetLocalTime(MyTime);
end;

获取星期几
  case DayOfWeek(Date) of
  1:Week:=' 星期日';
  2:Week:=' 星期一';
  3:Week:=' 星期二';
  4:Week:=' 星期三';
  5:Week:=' 星期四';
  6:Week:=' 星期五';
  7:Week:=' 星期六';
  end;