LPHIÊý¾Ýת»»Int64 to String
±à³ÌʵÏÖ
var
ss,ss1:string;
ss2:int64;
tmp:string;
begin
ss:='AB10000000001';
tmp:=copy(ss,2,11);
ss2:=tmp+1; //ÈçºÎת»»Ê¹ss2:=10000000002
ss1:=ss2;& ......
Ôںü¸¸öÔÂ֮ǰ£¬Ð´¹ýÒ»¸ö·ÉÐſؼþ£¬»ù±¾ÊµÏÖÁË·¢ËͶÌÐÅÓë·ÉÐÅÁÄÌìµÈ¹¦ÄÜ £¬¾ßÌåÐÅÏ¢²é¿´±¾È˲©¿Í£º
http://blog.csdn.net/suiyunonghen/archive/2009/07/28/4388476.aspx
µ«ÊÇÈÕǰ£¬·ÉÐŵÄÁÄÌìÐÒéÓÐЩÐí±ä¶¯£¬¾¹ý×¥°ü£¬·¢ÏÖÁÄÌìµÄʱºò£¬»áÏÈ·¢ËÍÒ»¸öÊý¾Ý°ü¸ø·þÎñÆ÷£¬ÒªÇ󷢯ðÁÄÌ죬Ȼºó·þÎñÆ÷·´À¡Ò»¸öеÄÁÄÌì ......
×î½üÔÚдһ¸ödelphiÌá½»±íµ¥×¢²áÍøÕ¾ÕË»§
Åöµ½Ò»¸öÎÊÌâ
Óû§Ãû±ØÐëÒª¼ì²âºó²Å¿ÉÒÔÌá½»
¼ì²âÐèÒªµã»÷Ò»ÏÂÍøÒ³ÉÏÓû§ÃûµÄÎı¾¿ò
Äĸö¿ÉÒÔ°ïÎÒ½â¾öһϰ¡
²»ÒªÒƶ¯Êó±êÄ£Äâµã»÷µÄ
ÕâÑùµÄÎһᣬµ«ÊÇÂù·³
¸Õ×Ðϸ¿´ÁËÏÂÍøÕ¾Ô´´úÂë
Ó¦¸ÃÊÇÕâ¶Î´úÂë
<script language=& ......
ͬ־ÃǺã¬ÎÒÓÖ»ØÀ´ÁË£¬¸÷룬ÏÖÔÚÎÊÒ»¸ö¶ÔÄãÃÇÀ´Ëµ¿ÉÄܺܲ˵ÄÎÊÌ⣬
ÎÒÊý¾Ý¿âÀïÃæÓÐÁùÕűí
ÈËÔ±±í£¨×Ö¶ÎÊÇ£¬±àºÅ£¬ÐÕÃû¡£²¿ÃÅ£©
A±í£¨×ֶΣº±àºÅ£¬Ãû³Æ£¬Àà±ð£¬¼¶±ð£¬Äê·Ý£¬ÏµÊý£¬½ð¶î£¬·ÖÊý£©
B±í£¨×ֶΣº±àºÅ£¬Ãû³Æ£¬Àà±ð£¬¼¶±ð£¬Äê·Ý£¬»ùÊý£¬X³¤¶È£¬ÏµÊý£¬½ð¶î£¬·ÖÊý£©
C±í£¨×ֶΣº±àºÅ£¬Ãû³Æ£¬µÈ¼¶£¬Ñø ......
ÇëÎÊ£ºÈçºÎ½«ÒÔÏÂVBA´úÂëת³ÉDelphi´úÂë
VBA´úÂëÈçÏ£¨¸´ÖÆÑ¡ÖÐÇøÓòRange("B3:B18")£¬Ìõ¼þÕ³ÌùÆä¸ñʽÖÁRange("H5")£©
VB code:
Sub Macro1()
'
' Macro1 Macro
' ºêÓÉ yuant Â¼ÖÆ£¬Ê±¼ä: 2009-12-14
'
'
Range("B3:B18").Select
Selection.Copy
Range(&qu ......
ʱ¼ä¿Ø¼þÁ½¸ö:DateTimePicker1\DateTimePicker2(²éÕÒµÄʱ¼ä¶Î)
ÆäËû¿Ø¼þ:combobox1\EDIT1¸÷Ò»¸ö(Cmbobox1Ñ¡ÔñµÄÊÇDBGridµÄÁÐ,EDIT1ÊÇÁÐÏÂÃæµÄÏêϸ)
ÔõôÑùÓÃÕ⼸¸ö¿Ø¼þ×öÒ»Ïà²éÕÒ?È»ºó°Ñ²éÕÒËùµÃÏÔʾÔÚDBGrid1
Çó¸ßÊÖ°ï°ïæ,Õâ¶Î´úÂëÔõôд?лл
A B C D(ABCD¾ ......