設(shè)置單元格的格式:
犍為網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),犍為網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為犍為1000多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢,請找那個(gè)售后服務(wù)好的犍為做網(wǎng)站的公司定做!
objImportSheet.Cells(i, 1) .NumberFormatLocal = "0.0"
objImportSheet.Cells(i, 2).NumberFormatLocal = "0.000E+00"
下面的都一樣。
我靠.你這個(gè)要求奇葩哦.都是控制一列的數(shù)據(jù)類型.你要這樣.那你數(shù)據(jù)庫就全部定義成雙精度的類型.在讀取的時(shí)候.
當(dāng)前行為第一行的CTYPE(內(nèi)容,De....) 忘記了.這樣你第一行就是帶小數(shù)點(diǎn)的
判斷當(dāng)前行數(shù)大于1.全部 CTYPE(內(nèi)容,INTEGER) 就可以了. 這樣一來.第二行開的的全部都是整數(shù)型的了
方法一:
用Round函數(shù),語法 :
ROUND(number,num_digits)
Number 需要進(jìn)行四舍五入的數(shù)字。 Num_digits 指定的位數(shù),按此位數(shù)進(jìn)行四舍五入。
示例:
'Round(需要修改的數(shù)字,小數(shù)位數(shù))
Print Round(3.1415926, 3)
顯示:3.142
方法二:
用Format函數(shù),返回Variant(String),其中含有一個(gè)表達(dá)式,它是根據(jù)格式表達(dá)式中的指令來格式化的。
語法
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
Format函數(shù)的語法具有下面幾個(gè)部分:
示例:
'Round(需要修改的數(shù)字,小數(shù)位數(shù))
Print format (3.1415926, "#,###")
顯示:3.142
方法三:
1、打開VB6.0軟件,新建一個(gè)標(biāo)準(zhǔn)exe工程;
2、在設(shè)計(jì)界面上新建一個(gè)Command控件;
3、雙擊Command1控件,進(jìn)入代碼編輯界面,輸入代碼:
Private?Sub?Command1_Click()
Dim?res?As?Double
res?=?Format(1?/?3,?"0.000")
Print?res;
End?Sub
4、運(yùn)行工程,單擊按鈕,可以看到數(shù)據(jù)被保留三位小數(shù);
5、總結(jié),想要保留幾位小數(shù),直接設(shè)置即可,如想設(shè)置保留5位小數(shù),設(shè)置如下:
format(1/3,"0.00000")
'自定義一個(gè)函數(shù):功能是給小數(shù)直接進(jìn)一位
'num 要操作的小數(shù)
'n 保留幾位小數(shù),
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
調(diào)用一下:
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15