随便找个网站获取格林威治时间, 并转换到北京时间
摘要：uses Winapi.msxml, System.DateUtils;//实时获取网络时间的函数, 得到的是格林威治时间; 默认从 sohu 服务器获取, 因为它最快, 平均只需 15 毫秒function GetNetTime(aUrl: WideString = 'http://www.sohu.com'): string;begin with CoXMLHTTP.Create do begin open('Post', aUrl, False, EmptyParam, EmptyParam); send(EmptyParam); Result := ge
阅读全文
posted @
2013-08-17 01:02
万一
阅读(5755)
推荐(1) 编辑
时间与相关类型(3): TFileTime、TSystemTime 及 DOS 时间
摘要：//相关函数:SysUtils.DateTimeToFileDate();SysUtils.FileDateToDateTime();SysUtils.DateTimeToSystemTime();SysUtils.SystemTimeToDateTime();Windows.SystemTimeToFileTime();Windows.FileTimeToSystemTime();Windows...
阅读全文
posted @
2009-05-22 22:54
万一
阅读(5323)
推荐(0) 编辑
时间与相关类型(1) - TDateTime 与 Double
摘要：//相关函数:SysUtils.FloatToDateTime();SysUtils.TryFloatToDateTime();在 System 单元定义有: TDateTime = type Double;看来 TDateTime 是一个 8 字节 64 位数据, 不过是 Double 的别名.{测试: TDateTime 就是一个 Double}var t: TDateTime; d: D...
阅读全文
posted @
2009-05-22 10:57
万一
阅读(6249)
推荐(0) 编辑
Yesterday、Today、Tomorrow - 昨天、今天、明天
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1...
阅读全文
posted @
2009-05-21 17:37
万一
阅读(4356)
推荐(0) 编辑
IsSameDay、IsToday - 判断是不是同一天、判断是不是今天
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var For...
阅读全文
posted @
2009-05-21 16:58
万一
阅读(6398)
推荐(0) 编辑
DateUtils.IsPM - 判断时间是否是下午
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var For...
阅读全文
posted @
2009-05-21 15:57
万一
阅读(2220)
推荐(1) 编辑
IsLeapYear、IsInLeapYear - 是否是闰年
摘要：SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) proce...
阅读全文
posted @
2009-05-21 11:54
万一
阅读(2797)
推荐(0) 编辑
IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay ... 判断时间是否合法
摘要：DateUtils.IsValidDateTimeDateUtils.IsValidDateDateUtils.IsValidTimeDateUtils.IsValidDateDayDateUtils.IsValidDateWeekDateUtils.IsValidDateMonthWeek//可用下面几个过程抛出异常:DateUtils.InvalidDateDayErrorDateUtils....
阅读全文
posted @
2009-05-21 11:29
万一
阅读(4510)
推荐(0) 编辑
RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间
摘要：DateUtils.RecodeDateTime();DateUtils.RecodeDate();DateUtils.RecodeTime();DateUtils.RecodeYear();DateUtils.RecodeMonth();DateUtils.RecodeDay();DateUtils.RecodeHour();DateUtils.RecodeMinute();DateUtils....
阅读全文
posted @
2009-05-21 11:06
万一
阅读(2427)
推荐(0) 编辑
DecodeDate、DecodeTime ... DecodeDateTime ... 分解时间
摘要：SysUtils.DecodeDate();SysUtils.DecodeDateFully();SysUtils.DecodeTime();DateUtils.DecodeDateTime();DateUtils.DecodeDateDay();DateUtils.DecodeDateWeek();DateUtils.DecodeDateMonthWeek();DateUtils.DecodeD...
阅读全文
posted @
2009-05-21 10:37
万一
阅读(5803)
推荐(0) 编辑
EncodeDateTime ... TryEncodeDateTime ... 构建时间
摘要：SysUtils.EncodeDateTimeSysUtils.EncodeDateSysUtils.EncodeTimeDateUtils.EncodeDateDayDateUtils.EncodeDateMonthWeekDateUtils.EncodeDateTimeDateUtils.EncodeDateWeekDateUtils.EncodeDayOfWeekInMonthDateUti...
阅读全文
posted @
2009-05-20 23:11
万一
阅读(3872)
推荐(0) 编辑
WithinPastYears、WithinPastMonths、WithinPastWeeks、WithinPastDays ... 判断两个时间差是否在一个指定范围内
摘要：DateUtils.WithinPastYears();DateUtils.WithinPastMonths();DateUtils.WithinPastWeeks();DateUtils.WithinPastDays();DateUtils.WithinPastHours();DateUtils.WithinPastMinutes();DateUtils.WithinPastSeconds();...
阅读全文
posted @
2009-05-20 22:13
万一
阅读(2599)
推荐(0) 编辑
WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth - 获取指定年月的周、日数
摘要：DateUtils.DaysInYear();DateUtils.DaysInMonth();DateUtils.DaysInAYear();DateUtils.DaysInAMonth();DateUtils.WeeksInYear();DateUtils.WeeksInAYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, ...
阅读全文
posted @
2009-05-20 17:53
万一
阅读(3972)
推荐(0) 编辑
StartOfAYear ... StartOfTheYear ... EndOfAYear ... EndOfTheYear ... 每年、月、周、日的开始与结束的时间
摘要：{参数是指定的年、月、周、日}DateUtils.StartOfAYear DateUtils.StartOfAMonthDateUtils.StartOfAWeek DateUtils.StartOfADay{参数是 TDateTime}DateUtils.StartOfTheYear DateUtils.StartOfTheMonthDateUtils.StartOfTheWeek DateU...
阅读全文
posted @
2009-05-20 17:27
万一
阅读(4439)
推荐(0) 编辑
IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond - 增时
摘要：DateUtils.IncYear();DateUtils.IncMonth();DateUtils.IncWeek();DateUtils.IncDay();DateUtils.IncHour();DateUtils.IncMinute();DateUtils.IncSecond();DateUtils.IncMilliSecond();unit Unit1;interfaceuses Win...
阅读全文
posted @
2009-05-20 16:48
万一
阅读(13408)
推荐(0) 编辑
YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间
摘要：DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();DateUtils.MilliSecond...
阅读全文
posted @
2009-05-20 12:55
万一
阅读(5809)
推荐(0) 编辑
MonthOfTheYear、WeekOfTheYear、WeekOfTheMonth、DayOfTheYear ... 相对时间
摘要：SysUtils.DayOfWeek();DateUtils.MonthOfTheYear();DateUtils.WeekOfTheYear();DateUtils.WeekOfTheMonth();DateUtils.NthDayOfWeek();DateUtils.DayOfTheYear();DateUtils.DayOfTheMonth();DateUtils.DayOfTheWeek(...
阅读全文
posted @
2009-05-20 11:59
万一
阅读(5319)
推荐(0) 编辑
DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf - 提取时间成分
摘要：它们的参数都是一个 TDateTime, DateOf、TimeOf 分别提取日期与时间, 并返回 TDateTime 类型;YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf 返回的都是 Word 类型.unit Unit1;interfaceuses Windows, Messages, SysUtils, V...
阅读全文
posted @
2009-05-20 11:19
万一
阅读(4624)
推荐(0) 编辑
CompareDateTime、CompareDate、CompareTime、SameDateTime、SameDate、SameTime - 对比时间的函数
摘要：CompareDateTime、CompareDate、CompareTime 返回的是 -1、0、1;前者 = 后者: 返回 0;前者 后者: 返回 1;前者 SameDateTime、SameDate、SameTime 返回的是 True 和 False.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Cla...
阅读全文
posted @
2009-05-20 10:30
万一
阅读(5458)
推荐(0) 编辑
DateUtils-Function
摘要：DateUtils.CompareDateDateUtils.CompareDateTimeDateUtils.CompareTimeDateUtils.DateOfDateUtils.DateTimeToJulianDateDateUtils.DateTimeToModifiedJulianDateDateUtils.DateTimeToUnixDateUtils.DayOfDateUtils....
阅读全文
管理
