£¨×ª£©VBÇ¿ÖÆÀàÐÍת»»º¯Êý
ת×Ô£ºhttp://tieba.baidu.com/f?kz=139765011
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌØ¶¨Êý¾ÝÀàÐÍ¡£
Óï·¨
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
±ØÒªµÄ expression ²ÎÊý¿ÉÒÔÊÇÈκÎ×Ö·û´®±í´ïʽ»òÊýÖµ±í´ïʽ¡£
·µ»ØÀàÐÍ
º¯ÊýÃû³Æ¾ö¶¨·µ»ØÀàÐÍ£¬ÈçÏÂËùʾ£º
º¯Êý ·µ»ØÀàÐÍ expression ²ÎÊý·¶Î§
CBool Boolean ÈκÎÓÐЧµÄ×Ö·û´®»òÊýÖµ±í´ïʽ¡£
CByte Byte 0 ÖÁ 255¡£
CCur Currency -922,337,203,685,477.5808 ÖÁ922,337,203,685,477.5807¡£
CDate Date ÈκÎÓÐЧµÄÈÕÆÚ±í´ïʽ¡£
CDbl Double ¸ºÊý´Ó -1.79769313486232E308 ÖÁ -4.94065645841247E-324£»ÕýÊý´Ó 4.94065645841247E-324 ÖÁ 1.79769313486232E308¡£
CDec Decimal Áã±ä±ÈÊýÖµ£¬¼´ÎÞСÊýλÊýÖµ£¬Îª
+/-79,228,162,514,264,337,593,543,950,335¡£¶ÔÓÚ 28 λСÊýµÄÊýÖµ£¬·¶Î§ÔòΪ
+/-7.9228162514264337593543950335£»×îСµÄ¿ÉÄÜ·ÇÁãÖµÊÇ 0.0000000000000000000000000001¡£
CInt Integer -32,768 ÖÁ 32,767£¬Ð¡Êý²¿·ÖËÄÉáÎåÈë¡£
CLng Long -2,147,483,648 ÖÁ 2,147,483,647£¬Ð¡Êý²¿·ÖËÄÉáÎåÈë¡£
CSng Single ¸ºÊýΪ -3.402823E38 ÖÁ -1.401298E-45£»ÕýÊýΪ 1.401298E-45 ÖÁ 3.402823E38¡£
CStr String ÒÀ¾Ý expression ²ÎÊý·µ»Ø Cstr¡£
CVar Variant ÈôΪÊýÖµ£¬Ôò·¶Î§Óë Double Ïàͬ£»Èô²»ÎªÊýÖµ£¬Ôò·¶Î§Óë String Ïàͬ¡£
˵Ã÷
Èç¹û´«µÝ¸øº¯ÊýµÄ expression ³¬¹ýת»»Ä¿±êÊý¾ÝÀàÐ͵ķ¶Î§£¬½«·¢Éú´íÎó¡£
ͨ³££¬ÔÚ±àÂëʱ¿ÉÒÔʹÓÃÊý¾ÝÀàÐÍת»»º¯Êý£¬À´ÌåÏÖijЩ²Ù×÷µÄ½á¹ûÓ¦¸Ã±íÊ¾ÎªÌØ¶¨µÄÊý¾ÝÀàÐÍ£¬¶ø²»ÊÇȱʡµÄÊý¾ÝÀàÐÍ¡£ÀýÈ磬µ±µ¥¾«¶È¡¢Ë«¾«¶È»òÕûÊýÔËËã·¢ÉúµÄÇé¿öÏ£¬Ê¹Óà CCur À´Ç¿ÖÆÖ´Ðлõ±ÒÔËËã¡£
Ó¦
Ïà¹ØÎĵµ£º
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷ ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......
VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
ÌâÍâ»°£º
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......
¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
м¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......
ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó&rdquo ......
Private Function Utf8ToUni(B() As Byte) As String
'²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......