VBÈçºÎÉùÃ÷Êý×Ö±äÁ¿ - VB / »ù´¡Àà
ÎÒÓÐÒ»¸öÊý×ÖÊÇ´ÓÊý¾Ý¿âÀïÃæÈ¡³öµÄ£¬¸ÃÊý¾Ý¿âµÄ×Ö¶ÎÊý×ÖÀàÐÍÊÇdecimal 13,ÖÁÉÙÒª±£Áô4λСÊý
,ÎÒ´ÓÕâ¸ö×Ö¶ÎÈ¡µ½ÊýºóÒª¸³¸øÒ»¸ö±äÁ¿fquantity£¬Õâ¸ö±äÁ¿ÎÒÉè³Ésingle(dim fquantity as single),µ«ÊÇ·¢ÏÖÓеÄʱºòÕâ¸öÊý±¾À´ÊÇ0µÄ£¬´«µÝµ½ºóÃæµÄʱºòÈ´±ä³ÉÁËÒ»¸öĪÃûÆæÃîµÄÊý×Ö£¬ÎÒ¾õµÃºÜÆæ¹Ö£¬ÎÒ¹À¼ÆÊÇÎÒµÄÉêÃ÷´íÁË¡£ÄÇôӦ¸ÃÈçºÎÉùÃ÷ÄØ£¿»¹ÓоÍÊǽð¶î£¬Ó¦¸ÃÈçºÎÉùÃ÷£¿Âé·³ÎÊһϴó¼Ò¡£
decimal 13£¿
ÊÇʲôÊý¾Ý¿â£¿
£¨µ«ÊÇ·¢ÏÖÓеÄʱºòÕâ¸öÊý±¾À´ÊÇ0µÄ£¬´«µÝµ½ºóÃæµÄʱºòÈ´±ä³ÉÁËÒ»¸öĪÃûÆæÃîµÄÊý×Ö£©
ÉÏ´úÂë¿´¿´
SQL SERVER
CREATE TABLE [dbo].[m_QuantityBalance] (
[MYear] [int] NOT NULL ,
[MPeriod] [int] NOT NULL ,
[FQuantity] [decimal](23, 10) NULL ,
[MMoney] [MONEY] NULL
) ON [PRIMARY]
GO
Ìù³ö´úÂë¾ÍÖªµÀÁË¡£Êý¾Ý¿âµÄ¶¨Òå³öÌù³öÀ´¡£
ÉùÃ÷´øСÊýµãµÄÊý×Ö´ó¼Òƽʱ¶¼ÉêÃ÷³ÉʲôÀàÐÍÄØ?
Äã˵single²»ÐÐ,ÄÇdoubleÄØ
doubleûÓÐÊÔ¹ý£¬ÄÇΪʲôsingle²»ÐÐÄØ£¿ºÜÆæ¹Ö
¿ÉÄܾ«¶È²»¹»°É,»¹ÓÐDecimalÒ²¿ÉÊÔÏÂ, Õâ·½Ãæûɶ¾Ñé,¾Í²»¶à²ÂÁË
[FQuantity] [decimal](23, 10) NULL ,
´ÓÒÔÉÏ¿´³öFQuantity×Ö¶ÎΪdecimalÀàÐÍ£¬ÕûÊý²¿·Ö³¤¶È13λ£¬Ð¡Êý²¿·Ö³¤¶È10룬×ܳ¤¶È23λ¡£
sql serverµÄ
decimal Êý¾ÝÀàÐÍ×î¶à¿É´æ´¢ 38 ¸öÊý×Ö£¬ËùÓÐÊý×Ö¶¼Äܹ»·Åµ½Ð¡ÊýµãµÄÓұߡ£decimal Êý¾ÝÀàÐÍ´æ´¢ÁËÒ»¸öÈ·¶¨µÄÊý×Ö±í´ï·¨£»Ã»Óд洢ֵµÄ½üËÆÖµ¡£
vb6µÄ
µ¥¾«¶È±äÁ¿×ܳ¤¶È8루º¬Ð¡Êýµã£©£¬Èç8.123456¡¢8123.456
Ë«¾«¶È±äÁ¿×ܳ¤¶È16루º¬Ð¡Êýµã£©£¬Èç1234567890123.45¡¢1234567890.12345
°ÑËü·ÅÈëÎÞÂÛÊǵ¥¾«¶È±äÁ¿»
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æͼ°å£¨ÆÁÄ»,Piceure1£©µÄÒƶ¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍƼöʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂ붼ÊÇÖÐÎÄ ......
ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......