VB中用double值居然被溢出了.郁闷ing
Dim NowH As Double
Dim sTime As String
sTime = Format(Hour(Now), "00") + Format(Minute(Now), "00") + Format(Second(Now), "00")
For i = 0 To 6 Step 1
NowH = TimeChangeToNum(sTime) - (6 - i) * 20 * 60
If NowH < 0 Then
NowH = NowH + 24 * 3600
End If
Next i
NowH居然被溢出了,
用监视器查看的时候nowh=-5537
Dim sTime As String
sTime = Format(Hour(Now), "00") + Format(Minute(Now), "00") + Format(Second(Now), "00")
For i = 0 To 6 Step 1
NowH = TimeChangeToNum(sTime) - (6 - i) * 20 * 60
If NowH < 0 Then
NowH = NowH + 24 * 3600
End If
Next i
NowH居然被溢出了,
用监视器查看的时候nowh=-5537
...全文
相关推荐
VB 求矩阵中的最值
在VB(Visual Basic)编程中,处理矩阵并求取其中的最值是一项常见的任务,尤其在数值计算和数据处理领域。
VB创建函数计算平均加权值
在这个案例中,我们要讨论如何利用VB创建一个函数来计算平均加权值。平均加权值是根据每个数值的重要性(权重)对一组数据进行加权平均的过程,它在统计分析、成绩计算、投资回报率等领域都有广泛应用。
VB语法大全
- **Char(字符型)**: 用于存储单个字符,表示范围为ASCII值0到65535。#### 变量声明与赋值在VB.NET中,可以通过`Dim`关键字声明变量,并指定其类型。
VB 赋值相容问题的验证
**整型到浮点型**:当一个Integer或Long类型的值被赋给Double类型的变量时,VB会自动将其转换为Double类型。2.
计算E的值(VB6.0代码编写)
下面是一个简单的VB6.0代码示例,计算E的值:```vbOption ExplicitPrivate Sub Command1_Click() Dim sum As Double Dim n As Integer


VB基础类
