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

delphi 随便找个网站获取格林威治时间, 并转换到北京时间

usesWinapi.msxml,System.DateUtils;//实时获取网络时间的函数,得到的是格林威治时间;默认从sohu服务器获取,因为它最快,平均只需15毫秒functionGetNetTime(aUrl:WideString='http://www.sohu.com'):string;beginwith…
类别:时间 标签: 作者:admin 日期:2013-10-01 17.08.03

delphi中设置系统时间方法

//delphi中设置系统时间方法varsystemtime:Tsystemtime;DateTime:TDateTime;beginDateTime:=StrToDateTime(Edit1.text);//获得时间(TDateTime格式)DateTimeToSystemTime(DateTime,systemtime);//把Delphi的TDateTi…
类别:时间 标签: 作者:admin 日期:2013-04-07 09.36.22

Delphi根据输入日期按年月周日输出日期段

Delphi根据输入日期按年月周日输出日期段输入变量ADateStart,并为其填写起始日期,变量ADateEnd,计算类型AType,输出变量ADateStart,变量ADateEndprocedureFormatDateByType(AType:Integer;varADateStart,ADateEn…
类别:时间 标签: 作者:admin 日期:2013-04-02 22.04.34

delphi 获取北京时间

方法1usesComObj,DateUtils;functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:string;timeGMT,GetNetTime:TDateTime;s:string;beginXmlHttp:=CreateOleObject('Micros…
类别:时间 标签: 作者:admin 日期:2013-03-25 15.57.09

delphi 倒计时对话框

unitCountDownCtrlplatform;{$R-,T-,H+,X+}interfaceusesWindows,Messages,SysUtils,Classes,Controls,Graphics,Forms,Menus,StdCtrls,Buttons,ExtCtrls;functionMyMessageDlg(varMsgStr:string;Interval:Longint):B…
类别:时间 标签: 作者:admin 日期:2013-03-21 22.28.44

delphi 公历到农历的转换法

unitCNYear;interfaceusessysutils;typeTCNDate=Cardinal;functionDecodeGregToCNDate(dtGreg:TDateTime):TCNDate;functionGetGregDateFromCN(cnYear,cnMonth,cnDay:word;bLeap:Boolean=False):TDateTime;functionGr…
类别:时间 标签: 作者:admin 日期:2013-03-20 09.33.09

Delphi2007在win7系统下的日期问题

XP和Win7的日期格式在系统默认中并不一致,比如在XP下默认是'2012-1-1',在win7下却变成了'2012/1/1'。办法1---替换法:strSetTime:='2013/1/1';ifpos('/',strSetTime)>0thenstrSetTime:=StringReplace(strSetTime,'…
类别:时间 标签: 作者:admin 日期:2013-01-24 20.12.30

delphi网络时间校对

网络时间校对proceduresetLocalDateTime(Value:TDateTime);varlSystemDateTime:TSystemTime;beginDateTimeToSystemTime(Value,lSystemDateTime);SetLocalTime(lSystemDateTime);end;
类别:时间 标签: 作者:admin 日期:2013-01-24 12.48.16

delphi 日期时间计算

一、TDateTime类型怎么进行加减运算?比如我要在当前的日期时间上再加30分钟,得到一个新的日期时间,应该怎么运算?答:TDateTime类型可直接进行运算(*前n秒的TDateTime是多少?前n分钟的TDateTime是多少?前n小时的…
类别:时间 标签: 作者:admin 日期:2013-01-22 12.53.22

delphi 公历转农历函数

delphi公历转农历函数方法一unitDateCn;interfaceusesWindows,SysUtils,Controls;const//农历月份数据,每年4字节,从1901年开始,共150年//数据来源:UCDOS6.0UCT.COM//分析整理:Copyright(c)1996-1998,Randolph//…
类别:时间 标签: 作者:admin 日期:2013-01-20 10.54.20

delphi 最全_日期格式_DateUtils时间单元说明

DateUtils时间单元说明CompareDate函数比较两个日期时间值日期部分的大小CompareDateTime函数比较两个日期时间值的大小CompareTime函数比较两个日期时间值时间部分的大小DateOf函数去除日期时间值的时间部分DateTime…
类别:时间 标签: 作者:admin 日期:2012-05-21 11.49.01

delphi 时间到就触发事件

delphi时间到就触发事件varS,D:tdatetime;beginLabel1.Caption:=FormatDateTime('hh:mm:ss',Now);//此时//S:=FormatDateTime('hh:mm:ss',Now);s:=strtodatetime(Label1.Caption);D:=strtodatetime('14:01:02');//到达…
类别:时间 标签: 作者:admin 日期:2011-08-17 10.25.43

delphi获得系统当前时间

delphi获得系统当前时间本例中主要应用了FormatDateTime函数,此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。程序运行结果如图6.1所示主要代码如下:procedureTForm1.Butto…
类别:时间 标签: 作者:admin 日期:2011-08-17 10.24.20

delphi 日期相减 比较大小 过期时间函数

vardt1:****ate;dt2:****ate;begin//比较日期,//www.delphitop.com花了5元购买的代码dt1:=S****ToDate('2010/7/1');dt2:=S****ToDate('2011/8/12');ifdt2>=dt1thenbeginshowmessage('今天…
类别:时间 标签: 作者:admin 日期:2011-08-05 10.18.57

delphi 时间差函数及部分字符串与日期时间相互转换的函数

delphi时间差函数及部分字符串与日期时间相互转换的函数首先使用dateutils单元,即usesdateutils;yearsbetween(开始时间,结束时间)-------------中间相差多少年保留整数部分monthsbetween(开始时间,结束时间)------…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.38.07

Delphi中FormatDateTime的用法

关键词:Delphi,FormatDateTime,日期函数,格式化声明为:functionFormatDateTime(constFormat:string;DateTime:TDateTime):string;overload;返回值是一种格式化后的字符串,重点来看Format参数中的指令字符c以短时…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.32.39

Delphi 6常用日期与时间函数

Delphi6常用日期与时间函数D.1获取特定的日期与时间本小节将为您介绍Delphi6所提供的获取特定日期与时间的函数.这些函数稍后将有详细的范例说明.笔者这里将以列表的方式先说明每一个函数所代表的意义,如图示:函数名称…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.31.14

Delphi 日期时间函数

DateUtils.IncYear();DateUtils.IncMonth();DateUtils.IncWeek();DateUtils.IncDay();DateUtils.IncHour();DateUtils.IncMinute();DateUtils.IncSecond();DateUtils.IncMilliSecond();unitUnit1;interfaceusesWindow…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.29.29

delphi常用日期函数

Day开头的函数使用单元:usesDateUtils●functionDateOf(constAValue:TDateTime):TDateTime;描述:使用DateOf函数用来把一个TDateTime类型的变量转变成一个只带有日期的TDateTime类型变量。例如:showmessage(DateTi…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.28.43

delphi日期函数、日期加减

Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。functionIncYear(constAValue:TDateTime;constANumberOfYears:Integer=1):TDateTime;//functionIncMonthisinSysUtilsfunctionIncWeek(constAValue:TD…
类别:时间 标签: 作者:admin 日期:2011-08-05 08.27.54