??xml version="1.0" encoding="utf-8" standalone="yes"?>97se亚洲国产综合自在线,热99久久精品,欧美孕妇孕交黑巨大网站http://www.aygfsteel.com/HappyJava/category/33129.htmlq福人生(J2EE)zh-cnTue, 22 Jul 2008 14:56:29 GMTTue, 22 Jul 2008 14:56:29 GMT60delphi日期函数http://www.aygfsteel.com/HappyJava/articles/216617.html李徏?/dc:creator>李徏?/author>Tue, 22 Jul 2008 07:14:00 GMThttp://www.aygfsteel.com/HappyJava/articles/216617.htmlhttp://www.aygfsteel.com/HappyJava/comments/216617.htmlhttp://www.aygfsteel.com/HappyJava/articles/216617.html#Feedback0http://www.aygfsteel.com/HappyJava/comments/commentRss/216617.htmlhttp://www.aygfsteel.com/HappyJava/services/trackbacks/216617.html 
Day 开头的函数
?
Unit

DateUtils

function DateOf(const Avalue: TDateTime): TDateTime;

描述
使用 DateOf 函数用来把一?TDateTime cd的变量{变成一?
只带有日期的 TDateTime cd变量?
例如Q?
showmessage(DateTimetostr(dateof(now())));
你得到的?2003/03/19
?showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49

●function DateTimeToStr(DateTime: TDateTime): string;

描述
DateTimeToString 函数?TDateTime cd的参?DateTime 转换成一?
字符Ԍ使用l定的全局变量 ShortDateFormat 的格式,旉部分按照
l定的全局变量 LongTimeFormat 的格式?
其中 DateTime 为零的部分将不会昄出来?

例如Q?
ShortDateFormat:=’yyyy mm dd’;
showmessage(DateTimetostr((now())));
你将得到Q?003 03 19 10:50:49


●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);

描述Q?
DateTimeToString ҎTDateTimecd的参数DateTime 按照由参数Format提供的格?
转化成字W串Qƈ保存在Result中?
对于Format的格式类型,L Date-Time format strings 的帮助?

例如Q?
DateTimeToString(result,’yyyy mm dd’,now());
那么 result的结果ؓQ?003 03 19 10:50:49

●procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);

描述Q?
有时Z调用API函数来用系l时_你可以?DateTimeToSystemTime ҎQ来一?
TDateTime cd的时间变量{换成一?TSystemTime cd?pȝ旉?

●function DateTimeToUnix(const Avalue: TDateTime ): Int64;

描述Q?
使用 DateTimeToUnix 函数来将一?TDateTime 型时间变量{换成一个相应的 Unix 格式
的日期和旉?
Unix date-and-time values are encoded as the number of seconds that have elapsed
since midnight at the start of January 1, 1970.


●function DateToStr(Date: TDateTime): string;

描述Q?
使用 DateToStr 函数能得?TDateTime 日期旉cd的日期部分。日期的转换格式依赖?
全局变量 ShortDateFormat?

●function DayOf(const Avalue: TDateTime): Word;

描述Q?
对于l定的TDateTimecd的日期时_使用 DayOf 函数能得到该日期是该月䆾的第几天?
该函数的q回数值在 1 ?31 之间
注意QDayOf 函数得到的结果与 DayOfTheMonth 相同?

例如Q?
showmessage(inttostr(dayof(now)));
得到的是Q?9 Q今天是 某月19日)

●function DayOfTheMonth(const Avalue: TDateTime): Word;

?DayOf 相同?

●function DayOfTheWeek(const Avalue: TDateTime): Word;

描述Q?
对于l定的TDateTimecd的日期时_使用 DayOfTheWeek 函数能得到该日期是该星期?
W几天。DayOfTheWeek 函数的返回数gؓ 1 ?7Q其?1 表示星期一Q?7 表示星期日?
注意QDayOfTheWeek ?ISO 8601 标准的(此标准ؓ 星期一是一周的W一天)。对于一?
的第一天是星期日的标准Q如果想获得星期敎ͼ请?DayOfWeek 函数?
Tip: To make the return value more readable, use the Day of week constants.

●function DayOfTheYear(const Avalue: TDateTime): Word;

描述Q?
Ҏl定的日期时间参数AvalueQ?DayOfTheYear 函数能得到在该日期所在的q䆾中,?
日期按照序所计算的天数。因此,作ؓTDateTimecd的变?“1??#8221;在该函数所得到?
l果?1 Q?#8220;1??#8221;所得到的结果ؓ 2Q?#8220;2??#8221;所得到的结果就?32Q依ơ类推?

●function DayOfWeek(Date: TDateTime): Integer;

Description

DayOfWeek returns the day of the week of the specified date as an integer between
1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Note: DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday
as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek
function instead.

描述Q?
按照l定的TDateTimecd的参数DateQDayOfWeek 函数得到一周中的第几天Q从1??
q里 星期?是一周的W一天,?星期?是第七天?

●function DaysBetween(const ANow, AThen: TDateTime): Integer;

描述Q?
Ҏ两个TDateTimecd的日期时间变?ANow ?AThenQDaysBetween函数能得C者之间的
天数的差距?
DaysBetween 仅仅Ҏ天数的不同来计算。因此,对于 1999q?2?1?下午11?9??
2000q???11?8分,该函数得到的l果?0Q因Z者之间的旉差别q差 1 分钟才到
1 天?

●function DaysInAMonth(const AYear, AMonth: Word): Word;

描述Q?
对于各定?q䆾和月份,DaysInAMonth 函数能得?该月份的d数?
q䆾应该??1 ?9999
月䆾应该??1 ?12

●function DaysInAYear(const AYear: Word): Word;

描述Q?
对于l定的年份,DaysInAYear函数能得到该q䆾的d数?
q䆾应该?1 ?9999?

●function DaysInMonth(const Avalue: TDateTime): Word;

描述Q?
Ҏl定的TDateTimecd的时间日期参数AvalueQDaysInMonth函数能得到该月䆾的d数?

●function DaysInYear(const Avalue: TDateTime): Word;

描述Q?
Ҏl定的TDateTimecd的时间日期参数AvalueQDaysInYear函数能得到该q䆾的d数?

●function DaySpan(const ANow, AThen: TDateTime): Double;

描述Q?
Ҏ两个TDateTimecd的日期时间参数ANow和AThenQDaySpan能得到在天数上的差距?
?DaysBetween 函数不同QDaysBetween 函数 只是计算 整的天数Q?DaySpan函数?
不一天的C得到?
注意Q此函数q回的数gؓ Double 型?

?Month 开头的函数

●function MonthOf(const Avalue: TDateTime): Word;

描述Q?
Ҏl定的TDateTimecd的时间日期参数AvalueQMonthOf函数能得到该q䆾的该月䆾数?
MonthOfq回数gؓ 1 ?12?
注意QMonthOf函数得到的数gMonthOfTheYear函数相同

●function MonthOfTheYear(const Avalue: TDateTime): Word;

与MonthOf函数相同?

●function MonthsBetween(const ANow, AThen: TDateTime): Integer;

描述Q?
Ҏ两个l定的TDateTimecd的参数ANow和AThenQMonthsBetween函数能得C个日期在月䆾
上差距数。因为月份的天数是不同的Q所?MonthsBetween 函数q回的是一个近似|该近?
值基于每个月份ؓ 30.4375 天。不一个月的数字将不被计算?
因此Q例如,对于 2???2?8日,MonthsBetween q回的数gؓ 0?
同样Q对?2???3?日,MonthsBetween q回的数g?0?

●function MonthSpan(const ANow, AThen: TDateTime): Double;

描述Q?
Ҏ两个l定的TDateTimecd的参数ANow和AThenQMonthsBetween函数能得C个日期在月䆾
上差距数。因为月份的天数是不同的Q所?MonthsBetween 函数q回的是一个近似|该近?
值基于每个月份ؓ 30.4375 天。与 MonthsBetween 函数不同QMonthsBetween函数不计不?
一个月的数字,MonthSpan函数会得到不一个月的数字?
注意Q此函数q回的类型ؓ Double

●function MonthStr(DateTime: TDateTime): string;

Description

HTTP message headers permit several formats for the representation of date and time
values. MonthStr converts a TDateTime value into a string representing the month.
MonthStr allows server applications to work with date values taken from HTTP request
messages, without worrying about the details of how they are formatted.

?Week 开头的函数

●function WeekOf(const Avalue: TDateTime): Word;

描述Q?
ҎTDateTimecd的日期时间参数AValuQWeekOf函数会得到该星期Zq的W几?
星期?

●function WeeksInAYear(const AYear: Word): Word;

描述Q?
WeeksInAYear 函数Ҏq䆾得到在该q䆾中共包含多少个星期?

●function WeeksBetween(const ANow, AThen: TDateTime): Integer;

描述Q?
Ҏ两个TDateTimecd的日期时间参数ANow和AThenQWeeksBetween函数得到这两个旉?
星期上的差数。如果差C一个星期,则忽略掉?

●function WeekSpan(const ANow, AThen: TDateTime): Double;

描述Q?
Ҏ两个TDateTimecd的日期时间参数ANow和AThenQWeeksBetween函数得到这两个旉?
星期上的差数。如果差C一个星期,则WeekSpan函数不会忽略掉?
注意Q此函数的返回类型ؓ Double

?Year 开头的函数

●function YearOf(const Avalue: TDateTime): Word;

描述Q?
Ҏl定的TDateTimecd的日期时间参数AvalueQYearOf函数能得到该日期的年份数字?
YearOf函数q回的数gؓ?1 ?9999

●function YearsBetween(const ANow, AThen: TDateTime): Integer;

描述Q?
Ҏ两个l定的TDateTimecd的参数ANow和AThenQYearsBetween函数能得C个日期在q䆾
上差距数。因为年份的天数是不同的Q所?YearsBetween 函数q回的是一个近似|该近?
值基于每q的天数?365.25 天。不的一q的差距不会被计算?
因此例如Q对?1?日和12?1日,如果q两个日期在同一q_?YearsBetween q回数?
?0Q如果这两个日期在͘q的q䆾Q则 YearsBetween 函数q回数gؓ 1?

●function YearSpan(const ANow, AThen: TDateTime): Double;

描述Q?
Ҏ两个l定的TDateTimecd的参数ANow和AThenQYearsBetween函数能得C个日期在q䆾
上差距数。因为年份的天数是不同的Q所?YearsBetween 函数q回的是一个近似|该近?
值基于每q的天数?365.25 天。与 YearsBetween 函数不同QYearsBetween函数忽略掉?
一q的数字Q?YearSpan 计不一q的数字?
注意Q该函数q回cd为Double


●function Yesterday: TDateTime;

描述Q?
Yesterday函数能得到当前日期的前一天的日期Q返回数g不包括时间部分?
例如Q?
当前日期?2003/3/19
?showmessage(datetimetostr(Yesterday));
得?2003/3/18

☆日期的合成
●function EncodeDate(Year, Month, Day: Word): TDateTime;

描述Q?
EncodeDate函数根据参?q䆾、月份、日?而得C个TDateTimecd的时间变量?

●function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;

描述Q?
EncodeDateDay根据参数年份和天数Q而得C个TDateTimecd的时间变量?
其中AYear ?1 ?9999?
ADayOfYear 为日子在该年份顺序排列的天数Q例如,1?日时QADayOfYear?Q?
2?日时QADayOfYear?Q??日时QADayOfYear?2?

●function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth: Word; const ADayOfWeek: Word =

1): TDateTime;

描述Q?
EncodeDateMonthWeek 函数根据参?q䆾、月份、星期数Q星期几Q来得到一个TDateTimecd
的时间变量?
其中AYear ?1 ?9999?
其中AMonth ?1 ?12?
AWeekOfMonth是在该月份的星期敎ͼ1 表示W一个星期,可能包含4天或更多的天数?
注意Q一个月的第一天如果是 星期5Q星?或星期日Q用表示q三天的AMonth数值必设?
Z一个月份的数字Q同?AWeekOfMonth 要设为在上一个月所在的星期数?
同样Q如果一个月的最后一天是 星期1Q星?Q或星期3Q那么用表示q三天的AMonth数?
必须讑֮Z一个月份的数字Q同?AWeekOfMonth ?1?
ADayOfWeek表示星期几,星期一?Q星期二??

●function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond:

Word):TDateTime;

描述Q?
EncodeDateTime Ҏ参数 q䆾、月份、日子、小时、分、秒、毫U?来得C个TDateTimecd
日期旉?

●function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime;

描述Q?

EncodeDateWeek Ҏ参数 q䆾、星期数、星期几 来得C个TDateTimecd日期旉?

AWeekOfYear是在该年份的星期敎ͼ1 表示W一个星期,可能包含4天或更多的天数?
注意Q一q的W一天如果是 星期5Q星?或星期日Q用表示q三天的AYear数值必设?
Z一个年份的数字Q同?AWeekOfYear 要设为在上一个年所在的星期数?
同样Q如果一q的最后一天是 星期1Q星?Q或星期3Q那么用表示q三天的AYear数?
必须讑֮Z一个年份的数字Q同?AWeekOfYear ?1?
ADayOfWeek表示星期几,星期一?Q星期二??

●function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

描述Q?
EncodeTime函数Ҏ参数 时、分、秒、毫U?得到个一个TDateTime数倹{?

☆日期的分解

●procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

描述Q?
DecodeDate从一个TDateTimecd参数Date中分解出得到q䆾、月份、日子?

●procedure DecodeDateDay(const Avalue: TDateTime; out AYear, ADayOfYear: Word);

描述Q?
DecodeDateDay Ҏ会根据TDateTimecd参数Avalue 得到相应的年份和日期L?
ADayOfYearQ??日,此数gؓ1Q??日,此数gؓ2?

●procedure DecodeDateMonthWeek(const Avalue: TDateTime; out AYear, AMonth, AWeekOfMonth,

ADayOfWeek: Word);

描述Q?
DecodeDateMonthWeekҎҎTDateTimecd参数Avalue 得到相应的年份、月份、月份中的第几个
星期、星期几
AYearQ年?
AMonthQ月份,1 ?12
AWeekOfMonthQ在该月份中的第几个星期
ADayOfWeekQ星期几。星期一??

●procedure DecodeDateTime(const Avalue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute,

ASecond, AMilliSecond: Word);

描述Q?
DecodeDateTime ҎҎTDateTimecd参数Avalue 得到相应的年份、月份、日子、小时、分、秒?
毫秒?

●procedure DecodeDateWeek(const Avalue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);

描述Q?
DecodeDateWeekҎҎTDateTimecd参数Avalue 得到相应的年份、在该年中的W几个星期、星期几?/div>


]]>
delphi 調用存儲過程時解決辦法http://www.aygfsteel.com/HappyJava/articles/215975.html李徏?/dc:creator>李徏?/author>Sat, 19 Jul 2008 02:47:00 GMThttp://www.aygfsteel.com/HappyJava/articles/215975.htmlhttp://www.aygfsteel.com/HappyJava/comments/215975.htmlhttp://www.aygfsteel.com/HappyJava/articles/215975.html#Feedback0http://www.aygfsteel.com/HappyJava/comments/commentRss/215975.htmlhttp://www.aygfsteel.com/HappyJava/services/trackbacks/215975.htmlCommandTimeout:=xxxx
此D大些



]]>
變更鼠標形狀http://www.aygfsteel.com/HappyJava/articles/215963.html李徏?/dc:creator>李徏?/author>Sat, 19 Jul 2008 02:37:00 GMThttp://www.aygfsteel.com/HappyJava/articles/215963.htmlhttp://www.aygfsteel.com/HappyJava/comments/215963.htmlhttp://www.aygfsteel.com/HappyJava/articles/215963.html#Feedback0http://www.aygfsteel.com/HappyJava/comments/commentRss/215963.htmlhttp://www.aygfsteel.com/HappyJava/services/trackbacks/215963.htmlScreen.Cursor:=crHourGlass;    //沙漏
Screen.Cursor:=crDefault;   //默認



]]>
hH體http://www.aygfsteel.com/HappyJava/articles/215961.html李徏?/dc:creator>李徏?/author>Sat, 19 Jul 2008 02:34:00 GMThttp://www.aygfsteel.com/HappyJava/articles/215961.htmlhttp://www.aygfsteel.com/HappyJava/comments/215961.htmlhttp://www.aygfsteel.com/HappyJava/articles/215961.html#Feedback0http://www.aygfsteel.com/HappyJava/comments/commentRss/215961.htmlhttp://www.aygfsteel.com/HappyJava/services/trackbacks/215961.html 2.MainForm.MessageLbl.Refresh;

]]>
վ֩ģ壺 | Ƿ| ˮ| | | | | ֱ| ̶| | | | ˮ| Ƥɽ| | | | | ϲ| Ͼ| ͨ| ̨ʡ| ˱| | | ԭ| Ͳ| | ܿ| ½| | ʡ| | ÷| ֦| | ɽ| | | Զ| |