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

Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)

作者:近猪者痴functionWeekDay(iYear,iMonth,iDay:Word):Integer;beginResult:=DayOfWeek(EncodeDate(iYear,iMonth,iDay));end;functionWeekNum(constTDT:TDateTime):Word;varY,M,D:Word;dtTmp:TDateTime;beginDeco…
类别:时间 标签: 作者:admin 日期:2014-04-02 16.11.15

Delphi获取13位格林治时间实现方法

格林治时间,也就是返回从UTC1970年1月1日午夜开始经过的毫秒数。(*Delphi获取13位格林治时间实现方法,与java中的java.lang.System.currentTimeMillis()效果相同*)varSysTime:TSystemTime;beginGetSystemTime(SysTi…
类别:时间 标签: 作者:admin 日期:2014-03-08 10.33.47

delphi中Time消息的使用方法

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…
类别:时间 标签: 作者:admin 日期:2013-11-22 19.58.36

Delphi中ns和ms时间的获取方法

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

delphi 設置系統時間

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…
类别:时间 标签: 作者:admin 日期:2013-10-30 11.18.21

Delphi处理公历到农历的转换

constSTART_YEAR=1901;END_YEAR=2050;//返回iYear年iMonth月的天数1年1月---65535年12月functionMonthDays(iYear,iMonth:Word):Word;//返回阴历iLunarYer年阴历iLunarMonth月的天数,如果iLunarMonth为闰月,//高字为…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.17.48

delphi CompareDateTime、CompareDate、CompareTime、SameDateTime、SameDate、SameTime – 对比时间的函数

CompareDateTime、CompareDate、CompareTime返回的是-1、0、1;前者=后者:返回0;前者>后者:返回1;前者<后者:返回-1;SameDateTime、SameDate、SameTime返回的是True和False.unitUnit1;interfaceusesWindows,Messages,S…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.08.29

delphi DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf – 提取时间成分

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

delphi MonthOfTheYear、WeekOfTheYear、WeekOfTheMonth、DayOfTheYear … 相对时间

SysUtils.DayOfWeek();DateUtils.MonthOfTheYear();DateUtils.WeekOfTheYear();DateUtils.WeekOfTheMonth();DateUtils.NthDayOfWeek();DateUtils.DayOfTheYear();DateUtils.DayOfTheMonth();DateUtils.DayOfTheWeek(…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.07.14

delphi YearsBetween、MonthsBetween … YearSpan、MonthSpan … 间隔时间

DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();DateUtils.MilliSecond…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.06.46

delphi IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond – 增时

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

delphi 每年、月、周、日的开始与结束的时间StartOfAYear … StartOfTheYear … EndOfAYear … EndOfTheYear

{参数是指定的年、月、周、日}DateUtils.StartOfAYearDateUtils.StartOfAMonthDateUtils.StartOfAWeekDateUtils.StartOfADay{参数是TDateTime}DateUtils.StartOfTheYearDateUtils.StartOfTheMonthDateUtils.StartOfT…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.05.48

delphi 获取指定年月的周、日数 -WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth

DateUtils.DaysInYear();DateUtils.DaysInMonth();DateUtils.DaysInAYear();DateUtils.DaysInAMonth();DateUtils.WeeksInYear();DateUtils.WeeksInAYear();unitUnit1;interfaceusesWindows,Messages,SysUtils,Varian…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.05.22

delphi 判断两个时间差是否在一个指定范围内 -WithinPastYears、WithinPastMonths、WithinPastWeeks、WithinPastDays

DateUtils.WithinPastYears();DateUtils.WithinPastMonths();DateUtils.WithinPastWeeks();DateUtils.WithinPastDays();DateUtils.WithinPastHours();DateUtils.WithinPastMinutes();DateUtils.WithinPastSeconds();…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.04.09

delphi 构建时间 -EncodeDateTime … TryEncodeDateTime

SysUtils.EncodeDateTimeSysUtils.EncodeDateSysUtils.EncodeTimeDateUtils.EncodeDateDayDateUtils.EncodeDateMonthWeekDateUtils.EncodeDateTimeDateUtils.EncodeDateWeekDateUtils.EncodeDayOfWeekInMonthDateUti…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.03.46

delphi 分解时间 –DecodeDate、DecodeTime … DecodeDateTime …

SysUtils.DecodeDate();SysUtils.DecodeDateFully();SysUtils.DecodeTime();DateUtils.DecodeDateTime();DateUtils.DecodeDateDay();DateUtils.DecodeDateWeek();DateUtils.DecodeDateMonthWeek();DateUtils.DecodeD…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.03.02

delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay

DateUtils.IsValidDateTimeDateUtils.IsValidDateDateUtils.IsValidTimeDateUtils.IsValidDateDayDateUtils.IsValidDateWeekDateUtils.IsValidDateMonthWeek//可用下面几个过程抛出异常:DateUtils.InvalidDateDayErr…
类别:时间 标签: 作者:admin 日期:2013-10-10 20.01.47

delphi 是否是闰年- IsLeapYear、IsInLeapYear

SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)procedureFormCreate(Sen…
类别:时间 标签: 作者:admin 日期:2013-10-10 19.59.44

delphi 判断时间是否是下午 DateUtils.IsPM

奇怪的事难道有一个isPM就没有一个ISAM,外国人的思维真奇怪肯定是认为ISAM=notisPM所以少写了一个,难道外国的日子是用PM开始?unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls…
类别:时间 标签: 作者:admin 日期:2013-10-10 19.20.37

Delphi程序不受Windows日期格式的影响

procedureSetSysDateFormat;begin//设置WINDOWS系统的短日期的格式SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd');Application.UpdateFormatSettings:=False;//设定程序本身所使用的日期时间…
类别:时间 标签: 作者:admin 日期:2013-10-10 10.05.32