打开项目代码，<brstyle="color:#404040;font-family:'MicrosoftYaHei','HelveticaNeue',SimSun;font-size:14px;line-height:21px;background-co...

引用单元comobj,DateUtils//从英特网上获取北京时间functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:string;timeGMT,GetNetTime:TDateTime;s:string;beginXmlHttp:=C…

procedureUpDataLacolTime(Year,Month,Day,Hour,Minute,Second:Integer);varSysTime:SystemTime;BeginSysTime.wYear:=Year;SysTime.wMonth:=Month;SysTime.wDay:=Day;SysTime.wHour:=Hour;SysTime.wMinute:=Minute;S…

//时间相减函数procedureTimeMinus(StartTime,EndTime:string);vart,tmp:TDatetime;d,h,n,s:integer;str:string;Begint:=abs(strtodatetime(EndTime)-strtodatetime(StartTime));d:=round(t);h:=round((t-d)*24);tmp…

delphi网络时间校对客户端登录的时候，自动同中间件校对时间。procedureTdmCommonFun.setLocalDateTime(Value:TDateTime);varlSystemDateTime:TSystemTime;beginDateTimeToSystemTime(Value,lSystemDateTime);SetLoc…

delphi程序不受WINDOWS日期格式的影响如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-2900:00:00不是合法的日期procedureTFrmQuerySale.FormShow(Sender:TObject);varsDate:string;begi…

介绍本文章介绍了DelphiXE5实现的一个阳历转换成阴历的代码，该代码只是将阳历转换成了阴历，并不能将阴历转换成阳历，所以代码比较简单，该代码包含了一个DataCN单元，这个单元中实现了阳历转换成阴历的功能，该单元…

usesSystem.DateUtils;//取得某一天所在的星期一及星期天procedureTForm1.Button1Click(Sender:TObject);vardw1,dw7,dnow:tdatetime;begindnow:=StrtoDatetime(edtnow.Text);dw1:=(StartOfTheWeek(dnow));edtw1.Text…

今天测试写了很久的模拟期货交易平台这个软件的时候，发现K线中的数据很多都是走错了的。原因分析Delphi调试很麻烦，于是打出log来看看，最终发现服务器传过来的数据的日期格式和本机的时间格式不一样，导致在判断时…

unithxCalendar;interfaceusesClasses,Controls,Messages,Windows,Forms,Graphics,StdCtrls,Grids,SysUtils,DateUtils;typeTDayOfWeek=0..6;TDroppedCell=procedure(Sender:TObject;ACol,ARow:LongInt;varValue:stri…

作者：近猪者痴functionWeekDay(iYear,iMonth,iDay:Word):Integer;beginResult:=DayOfWeek(EncodeDate(iYear,iMonth,iDay));end;functionWeekNum(constTDT:TDateTime):Word;varY,M,D:Word;dtTmp:TDateTime;beginDeco…

格林治时间，也就是返回从UTC1970年1月1日午夜开始经过的毫秒数。(*Delphi获取13位格林治时间实现方法，与java中的java.lang.System.currentTimeMillis()效果相同*)varSysTime:TSystemTime;beginGetSystemTime(SysTi…

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,S****C****ls;constTIMER_ID=200;typeT****1=class(T****)Label1:TLabel;btkilltime:TButton;btsettime:TBu…

今天突然和老师开始研究Delphi的编程~之前都是听说过~但是没有真的用过~老师说很不错~然后开始研究发现还真的不错啊···说说精确时间的获取~明天再讲讲关于DNS的问题~因为刚刚在做DNS解析的软件~~~要介绍的利用Win…

functionSetSystemtime(ATime:TDateTime):Boolean;varADateTime:TSystemTime;yy,mon,dd,hh,min,ss,ms:Word;begindecodedate(ATime,yy,mon,dd);decodetime(ATime,hh,min,ss,ms);withADateTimedobeginwYear:=yy;wMonth…

constSTART_YEAR=1901;END_YEAR=2050;//返回iYear年iMonth月的天数1年1月---65535年12月functionMonthDays(iYear,iMonth:Word):Word;//返回阴历iLunarYer年阴历iLunarMonth月的天数，如果iLunarMonth为闰月，//高字为…

CompareDateTime、CompareDate、CompareTime返回的是-1、0、1;前者=后者:返回0;前者>后者:返回1;前者<后者:返回-1;SameDateTime、SameDate、SameTime返回的是True和False.unitUnit1;interfaceusesWindows,Messages,S…

它们的参数都是一个TDateTime,DateOf、TimeOf分别提取日期与时间,并返回TDateTime类型;YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf返回的都是Word类型.unitUnit1;interfaceusesWind…

SysUtils.DayOfWeek();DateUtils.MonthOfTheYear();DateUtils.WeekOfTheYear();DateUtils.WeekOfTheMonth();DateUtils.NthDayOfWeek();DateUtils.DayOfTheYear();DateUtils.DayOfTheMonth();DateUtils.DayOfTheWeek(…

DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();DateUtils.MilliSecond…