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
°ÑËü·ÅÈëÎÞÂÛÊǵ¥¾«¶È±äÁ¿»
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......
ÎÒÏë°Ñ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
......