{1h=1*60m=1*60*60s=1*60*60*1000hs=3600000hs}{时间计时器00:01:14}//label1.Caption:=StartCount();functionStartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s)...

Application.Initialize;withFormatSettingsdobeginShortDateFormat:='yyyy-mm-dd';LongDateFormat:='yyyy-mm-dd';ShortTimeFormat:='hh:nn:ss';LongTimeFormat:='hh:nn:ss';DateSeparator:='-';TimeSeparator:=':';…

GMT是世界时间，在处理的时候需要处理当前的时区。constConvert:array[0..255]ofInteger=(-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1…

usesDateUtils,;functionDateTimeToGMT(constADate:****ateTime):s****ing;constWEEK:array[1..7]ofPChar=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');M…

//中文大写日期zzh20171109functionChineseDate(ADate:TDateTime):string;constCNC='〇一二三四五六七八九';functionnumtoUpper(Anum:Integer):String;vari,n:Integer;numstr:string;beginResult:='';&n...

为了在日志文件中写入标准格式的时间。要将时间(Now()转换到字符格式"YYYY-MM-DDhh:mm:sszzz"就编写了此函数，delphi系统自身也带了转换函数formatDateTime('YYYY-MM-DDhh:mm:sszzz',Now())也可以实现此功能。考虑到…

functionTFormMain.GetWeek:string;vardate:SYSTEMTIME;beginGetLocalTime(date);casedate.wDayOfWeekof0:Result:='星期天';1:Result:='星期一';2:Result:='星期二';3:Result:='星期三';4:Result:='星期四';5:Result…

usesDateUtils;varS1,S2:string;T1,T2:TDateTime;D,H,M,S:Integer;Value:Int64;beginS1:='2015/09/2315:44:50';S2:='2013/09/2216:47:51';T1:=StrToDateTime(S1);T2:=StrToDateTime(S2);Value:=SecondsBetween(T1,T2…

functionFormatDateTime(constFormat:string;DateTime:TDateTime):string;Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：c以短时间格式显示时…

Application.Initialize;withFormatSettingsdobeginShortDateFormat:='yyyy-mm-dd';LongDateFormat:='yyyy-mm-dd';ShortTimeFormat:='hh:nn:ss';LongTimeFormat:='hh:nn:ss';DateSeparator:='-';TimeSeparator:=':';…

打开项目代码，<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…