RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间

delphi StartCount() 时间计数器

{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.04

Delphi 不管什么日期格式转换都不会错了

Application.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.08

Delphi GMT时间与TDateTime转换

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…
类别:时间 标签: 作者:admin 日期:2018-01-07 15.23.50

delphi DateTimeToGMT GMT时间与TDateTime转换

usesDateUtils,;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

delphi 中文大写日期转换函数

//中文大写日期zzh20171109functionChineseDate(ADate:TDateTime):string;constCNC='〇一二三四五六七八九';functionnumtoUpper(Anum:Integer):String;vari,n:Integer;numstr:string;beginResult:='';&n...
类别:时间 标签: 作者:admin 日期:2018-01-01 22.25.24

delphi DateTimeToStr函数专用优化版

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

delphi 获取当天是星期几,计算两个日期相隔时间

functionTFormMain.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.42

delphi计算两个时间差

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…
类别:时间 标签: 作者:admin 日期:2017-12-31 23.08.00

Delphi中FormatDateTime函数的用法

functionFormatDateTime(constFormat:string;DateTime:TDateTime):string;Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串,重点来看Format参数中的指令字符:c以短时间格式显示时…
类别:时间 标签: 作者:admin 日期:2017-12-30 23.26.30

delphi 不管什么DateTime日期格式时间格式转换都不会错了

Application.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

delphi 固定保持DateTime日期格式

打开项目代码,<brstyle="color:#404040;font-family:'MicrosoftYaHei','HelveticaNeue',SimSun;font-size:14px;line-height:21px;background-co...
类别:时间 标签: 作者:admin 日期:2017-07-19 23.00.07

DELPHI从网上获取北京时间

引用单元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.07

Delphi更新本地时间

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…
类别:时间 标签: 作者:admin 日期:2016-01-20 22.27.21

DELPHI时间相减函数

//时间相减函数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.42

delphi 网络时间校对

delphi网络时间校对客户端登录的时候,自动同中间件校对时间。procedureTdmCommonFun.setLocalDateTime(Value:TDateTime);varlSystemDateTime:TSystemTime;beginDateTimeToSystemTime(Value,lSystemDateTime);SetLoc…
类别:时间 标签: 作者:admin 日期:2015-04-27 19.57.51

delphi程序不受WINDOWS日期格式的影响

delphi程序不受WINDOWS日期格式的影响如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-2900:00:00不是合法的日期procedureTFrmQuerySale.FormShow(Sender:TObject);varsDate:string;begi…
类别:时间 标签: 作者:admin 日期:2015-04-27 19.57.23

Delphi XE5实现的一个阳历转换成阴历的代码

介绍本文章介绍了DelphiXE5实现的一个阳历转换成阴历的代码,该代码只是将阳历转换成了阴历,并不能将阴历转换成阳历,所以代码比较简单,该代码包含了一个DataCN单元,这个单元中实现了阳历转换成阴历的功能,该单元…
类别:时间 标签: 作者:admin 日期:2015-04-16 15.47.18

Delphi 取得某一天所在的星期一及星期天

usesSystem.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

Delphi判断不同格式的时间是否相等

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

delphi 带有24节气的日历

unithxCalendar;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