查看單個文章
舊 2007-05-29, 10:23 PM   #11 (permalink)
profibus
註冊會員
榮譽勳章

勳章總數0
UID - 269708
在線等級: 級別:1 | 在線時長:7小時 | 升級還需:5小時
註冊日期: 2007-05-23
文章: 14
精華: 0
現金: 6 金幣
資產: 6 金幣
預設

引用:
作者: 劍痞憶秋年 查看文章
語法:
'=======================================================
Private Sub Form_Load()
    ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;" & _
                  "Data Source=CC_walsin1_07_05_08_09_57_04R"
              
    Sql_Data = "SELECT JobName, JobProcessCode, JobBatchSet, " & _
                    "FLOOR(JobBatchAct * 10 + 0.5) * 0.1" , JobStatus, LastUser, LastAccess " & _
                    "FROM UA#JobArc"
   
    Adodc1.ConnectionString = ConnStr
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = Sql_Data
    Adodc1.Refresh
End Sub
'=======================================================
修改如上

'四捨五入取小數1位
"FLOOR(JobBatchAct * 10 + 0.5) * 0.1"
'四捨五入取小數2位
"FLOOR(JobBatchAct * 100 + 0.5) * 0.01"
'四捨五入取小數3位
"FLOOR(JobBatchAct * 1000 + 0.5) * 0.001"
依此類推
謝謝大大的範例:
已經可以了,不過我不太了解為什麼要+0.5
profibus 目前離線  
送花文章: 2, 收花文章: 0 篇, 收花: 0 次
回覆時引用此帖