日期时间转换

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;