{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)...
类别:
时间 标签: 作者:
admin 日期:
2018-01-15 19.57.04Application.Initialize;withFormatSettingsdobeginShortDateFormat:='yyyy-mm-dd';LongDateFormat:='yyyy-mm-dd';ShortTimeFormat:='hh:nn:ss';LongTimeFormat:='hh:nn:ss';DateSeparator:='-';TimeSeparator:=':';…
类别:
时间 标签: 作者:
admin 日期:
2018-01-09 08.02.08GMT是世界时间,在处理的时候需要处理当前的时区。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…
类别:
时间 标签: 作者:
admin 日期:
2018-01-07 15.23.50usesDateUtils,;functionDateTimeToGMT(constADate:****ateTime):s****ing;constWEEK:array[1..7]ofPChar=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');M…
类别:
时间 标签: 作者:
admin 日期:
2018-01-07 15.20.40//中文大写日期zzh20171109functionChineseDate(ADate:TDateTime):string;constCNC='〇一二三四五六七八九';functionnumtoUpper(Anum:Integer):String;vari,n:Integer;numstr:string;beginResult:='';&n...
类别:
时间 标签: 作者:
admin 日期:
2018-01-01 22.25.24为了在日志文件中写入标准格式的时间。要将时间(Now()转换到字符格式"YYYY-MM-DDhh:mm:sszzz"就编写了此函数,delphi系统自身也带了转换函数formatDateTime('YYYY-MM-DDhh:mm:sszzz',Now())也可以实现此功能。考虑到…
类别:
时间 标签: 作者:
admin 日期:
2018-01-01 18.17.53functionTFormMain.GetWeek:string;vardate:SYSTEMTIME;beginGetLocalTime(date);casedate.wDayOfWeekof0:Result:='星期天';1:Result:='星期一';2:Result:='星期二';3:Result:='星期三';4:Result:='星期四';5:Result…
类别:
时间 标签: 作者:
admin 日期:
2017-12-31 23.13.42usesDateUtils;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…
类别:
时间 标签: 作者:
admin 日期:
2017-12-31 23.08.00functionFormatDateTime(constFormat:string;DateTime:TDateTime):string;Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串,重点来看Format参数中的指令字符:c以短时间格式显示时…
类别:
时间 标签: 作者:
admin 日期:
2017-12-30 23.26.30Application.Initialize;withFormatSettingsdobeginShortDateFormat:='yyyy-mm-dd';LongDateFormat:='yyyy-mm-dd';ShortTimeFormat:='hh:nn:ss';LongTimeFormat:='hh:nn:ss';DateSeparator:='-';TimeSeparator:=':';…
类别:
时间 标签: 作者:
admin 日期:
2017-12-15 19.20.52打开项目代码,<brstyle="color:#404040;font-family:'MicrosoftYaHei','HelveticaNeue',SimSun;font-size:14px;line-height:21px;background-co...
类别:
时间 标签: 作者:
admin 日期:
2017-07-19 23.00.07引用单元comobj,DateUtils//从英特网上获取北京时间functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:string;timeGMT,GetNetTime:TDateTime;s:string;beginXmlHttp:=C…
类别:
时间 标签: 作者:
admin 日期:
2016-01-20 22.28.07procedureUpDataLacolTime(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…
类别:
时间 标签: 作者:
admin 日期:
2016-01-20 22.27.21//时间相减函数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…
类别:
时间 标签: 作者:
admin 日期:
2016-01-20 22.26.42delphi网络时间校对客户端登录的时候,自动同中间件校对时间。procedureTdmCommonFun.setLocalDateTime(Value:TDateTime);varlSystemDateTime:TSystemTime;beginDateTimeToSystemTime(Value,lSystemDateTime);SetLoc…
类别:
时间 标签: 作者:
admin 日期:
2015-04-27 19.57.51delphi程序不受WINDOWS日期格式的影响如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-2900:00:00不是合法的日期procedureTFrmQuerySale.FormShow(Sender:TObject);varsDate:string;begi…
类别:
时间 标签: 作者:
admin 日期:
2015-04-27 19.57.23介绍本文章介绍了DelphiXE5实现的一个阳历转换成阴历的代码,该代码只是将阳历转换成了阴历,并不能将阴历转换成阳历,所以代码比较简单,该代码包含了一个DataCN单元,这个单元中实现了阳历转换成阴历的功能,该单元…
类别:
时间 标签: 作者:
admin 日期:
2015-04-16 15.47.18usesSystem.DateUtils;//取得某一天所在的星期一及星期天procedureTForm1.Button1Click(Sender:TObject);vardw1,dw7,dnow:tdatetime;begindnow:=StrtoDatetime(edtnow.Text);dw1:=(StartOfTheWeek(dnow));edtw1.Text…
类别:
时间 标签: 作者:
admin 日期:
2014-08-04 14.04.23今天测试写了很久的模拟期货交易平台这个软件的时候,发现K线中的数据很多都是走错了的。原因分析Delphi调试很麻烦,于是打出log来看看,最终发现服务器传过来的数据的日期格式和本机的时间格式不一样,导致在判断时…
类别:
时间 标签: 作者:
admin 日期:
2014-04-18 22.58.47unithxCalendar;interfaceusesClasses,Controls,Messages,Windows,Forms,Graphics,StdCtrls,Grids,SysUtils,DateUtils;typeTDayOfWeek=0..6;TDroppedCell=procedure(Sender:TObject;ACol,ARow:LongInt;varValue:stri…
类别:
时间 标签: 作者:
admin 日期:
2014-04-02 16.12.34