- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何判断某值是否是整数？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176531)
-- 发布时间：2022/4/16 16:33:00
-- 如何判断某值是否是整数？
Dim zgf As Integer = DataTables("成绩库").Compute("Max(总分)", "[部别] = \'"& bb &"\' And [类别] = \'" & tjlb & "\'And [年级] = \'"& tjnj &"\'")
如何判断“zgf”是否是整数？如果是整数就直接取名次，如果是存在0.5分就加0.5分取名次再将名次加1.
if zgf “是整数” Then
Dim gw As Integer = CInt(zgf) Mod 10
Dim fsd As Integer = CInt(zgf) - gw
Dim fdr As DataRow = dt_source.Find("分数段 = \'" & fsd & "\'And 部别 = \'" & bb & "\' And 年级 = \'" & tjnj & "\'And 类别 = \'" & tjlb & "\'")
If fdr IsNot Nothing Then
dr(bb & tjnj) = fdr("加" & gw & "分")
End If
Else
Dim gw As Integer = CInt((zgf) + 1) Mod 10
Dim fsd As Integer = CInt((zgf) + 1) - gw
Dim fdr As DataRow = dt_source.Find("分数段 = \'" & fsd & "\'And 部别 = \'" & bb & "\' And 年级 = \'" & tjnj & "\'And 类别 = \'" & tjlb & "\'")
If fdr IsNot Nothing Then
dr(bb & tjnj) = fdr("加" & gw & "分") + 1
End If
End If
怎样修改红色字体代码？请指教。谢谢！
-- 发布时间：2022/4/16 16:40:00
--
没有必要判断吧，变量都定义为整数，肯定是整数啊。
-- 发布时间：2022/4/16 16:49:00
--
最高分有0.5的。如
此主题相关图片如下：最高分.png
-- 发布时间：2022/4/16 17:00:00
--
Dim zgf As double = DataTables("成绩库").Compute("Max(总分)", "[部别] = \'"& bb &"\' And [类别] = \'" & tjlb & "\'And [年级] = \'"& tjnj &"\'")
如何判断“zgf”是否是整数？如果是整数就直接取名次，如果是存在0.5分就加0.5分取名次再将名次加1.
if cint(zgf ) = zgf Then
-- 发布时间：2022/4/16 17:23:00
--
搞定。谢谢！