vb.net单位转换 vb转vbnet

VB.net 中如何将秒数转换为分钟或者小时

假设vb.net单位转换你得到 N 秒

那么vb.net单位转换，一个小时就是 3600 秒，一分钟就是 60 秒，我们就可以这样子分割出来 vb.net单位转换：

小时 hour = N / 3600;

分钟 minute = ( N - ( hour * 3600 ) ) / 60;

秒 second = N - ( hour * 3600 + minute * 60 );

然后自己按照 hour : minute : second vb.net单位转换的格式打印出来就行vb.net单位转换了 。

相关问答

Q1: vb.net 如何把大写金额转换成阿拉伯数字金额？

Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '转换小数位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '转换整数位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '显示大写

End Sub

Q2: 用VB.NET将二进制数转换为十进制数

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

我是这么遍的，但是最后一个输出是0,高手看一下是怎么回事

Module Module1

Sub Main()

Dim b, w, i, sum As Integer

Dim a As Long

Console.WriteLine("请输入一个二进制数")

a = Console.ReadLine()

Console.WriteLine("请输入这个二进制数的位数")

w = Console.ReadLine()

b = w

sum = 0

For i = b To 0

If a - (1 * 10 ^ b) = 0 Then

sum = sum + 1 * 10 ^ b

a = a - (1 * 10 ^ b)

b = b - 1

End If

Next

Console.WriteLine(sum)

Console.ReadLine()

End Sub

End Module

解析:

.NET 程序写成你这样也算厉害了，好好看看下面的代码

Sub Main()

Console.WriteLine("请输入一个二进制数")

Console.WriteLine(bin2int(Console.ReadLine()))

Console.ReadKey()

End Sub

Function bin2int(ByVal bin As String) As Integer

Dim i As Long

For i = 1 To bin.Length

bin2int = bin2int * 2 + Val(Mid(bin, i, 1))

Next i

End Function

Q3: vb.net怎样把小时、分钟、秒转换为分钟

这个简单。dim time1 datetime ="1:20:30"dim h as int =time1.tostring("hh")dim M as int =time1.tostring("MM")dim S as int=time1.tostring("ss")dim SUMfen as double=h*60+M+S/60SUMfen就是最后 vb.net单位转换的结果。语法vb.net单位转换你自己修改下。纯手打。

关于vb.net单位转换和vb转vbnet的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。