delphiÇóÈÕÆÚÖ®¼äµÄ²î¾à
ÎÒÏëʵÏÖÒ»¸ö½çÃæ£¬¾ÍÊDZÈÈç½ñÌìÓë2009Äê5ÔÂ8ºÅ²î¾à¼¸ÄêÓÖ¼¸ÔÂÓÖ¼¸Ì죬ÈçºÎÅжϣ¬¼¸ÌìÊDz»´óÓÚÒ»¸öÔµģ¬¶øÇÒÒ²²»ÊÇÄÇÖÖÏÞ¶¨Ò»¸öÔÂ30Ìì»òÕß¶àÉٵģ¬ÎÒÒª¸ù¾Ýʵ¼ÊÀ´µÄ£¬³ÌÐòÒ»´ò¿ª£¬¾ÍÏÔʾ£¬±ÈÈç½ñÌìÊÇ2009Äê10ÔÂ29ºÅ£¬ÄÇ´ò¿ª³ÌÐò¾ÍÏÔʾ£¬½ñÌì¾àÀë2009Äê5ÔÂ8ºÅÓÐ0Äê2ÔÂ24ÌìÕâÑù¡£ÇëÎÊÈçºÎʵÏÖÄØ
DateUtilsµ¥ÔªÖÐÓкܶຯÊý¿ÉÓÃ
DaysBetween£¬Á½¸öÈÕÆÚ¼äµÄÌìÊý
0Äê2ÔÂ24Ìì?ÄãµÄÔ·ÝÌìÊýÈçºÎÈ·¶¨£º28£¬29£¬30£¬31£¿
Ö»ÄÜÈ·¶¨»¹Óм¸Ì죬¼¸·Ö¼¸ÃëÕâÑùµÄ£¡
ʹÓÃÈçϺ¯Êý£º
function DaysBetween(const ANow, AThen: TDateTime): Integer;
²»ÄÜʵÏÖ¹ýÁ˶àÉÙÔ¶àÉÙÌìÂð
-----------------
DaysBetween¿ÉÒÔ¿´¼¸Ìì
Èç¹ûʵÔÚÒªÖªµÀ¼¸¸öÔÂ
ÄǾÍ×Ô¼º»»Ëãһϰɣ¬×öµ¹¼ÆÊ±µÄ»°ºÃÏñÄǾÍÄÃÄ¿µÄÄê¼õÏÖÔÚµÄÄêµÃµ½»¹Ê£¶àÉÙÄê
ÔÙÄÇÄêÊý*12+Ä¿µÄÔÂ-µ±Ô¾ͿÉÒÔÁ˰¡¡£
¼òµ¥µÄ¼ÆËã¾ÍÄÜʵÏÖ²»Ò»¶¨Ê²Ã´¶¼ÊǺ¯ÊýʵÏÖµÄ
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
temp,temp1:string;
i,j,year,mon,day:integer;
begin
memo1.Clear;
temp:=formatdatetime('yyyymmdd',datetimepicker1.Date);
temp1:=formatdatetime('yyyymmdd',now());
i:=strtoint(copy(temp,1,4));
j:=strtoint(copy(temp1,1,4));
year:=i-j; //Ëã³ö¶àÉÙÄê
i:=strtoint(copy(temp,5,2));
j:=strtoint(copy(temp1,
Ïà¹ØÎÊ´ð£º
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Delphi
ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡
ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£
ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......