vb.net求和 vba编程求和代码

VB.net中多个个文本框之间的计算

呵呵,就当练手了

创新互联公司技术团队十余年来致力于为客户提供成都网站制作、做网站、高端网站设计、网络营销推广、搜索引擎SEO优化等服务。经过多年发展，公司拥有经验丰富的技术团队，先后服务、推广了成百上千家网站，包括各类中小企业、企事单位、高校等机构单位。

Add_VB.aspx 代码

%@ Page Language="VB" AutoEventWireup="false" CodeFile="Add_VB.aspx.vb" Inherits="测试代码_Add_VB" %

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head runat="server"

title实现加运算/title

/head

body

form id="form1" runat="server"

div

asp:TextBox ID="TextBox1" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="TextBox1" ErrorMessage="必须为数字" ValidationExpression="(\d+(\.\d)?){1,1}"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox2" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator2" runat="server" ControlToValidate="TextBox2" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox3" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" ControlToValidate="TextBox3" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox4" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator4" runat="server" ControlToValidate="TextBox4" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox5" runat="server" ReadOnly="True"/asp:TextBox

asp:Button ID="Button1" runat="server" Text="求和" Width="78px" /

/div

/form

/body

/html

Add_VB.aspx.vb 代码

Partial Class 测试代码_Add_VB

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Double = TextBox1.Text

Dim b As Double = TextBox2.Text

Dim c As Double = TextBox3.Text

Dim d As Double = TextBox4.Text

TextBox5.Text = a + b + c + d

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If TextBox1.Text = "" Then

TextBox1.Text = 0

End If

If TextBox2.Text = "" Then

TextBox2.Text = 0

End If

If TextBox3.Text = "" Then

TextBox3.Text = 0

End If

If TextBox4.Text = "" Then

TextBox4.Text = 0

End If

End Sub

End Class

vb.net 时间相加

Module Module1

Sub Main()

Console.WriteLine(DateTimeAdd("01:23:45"))

Console.ReadLine()

End Sub

''' summary

''' 获取时间的累加值

''' /summary

''' param name="sDatetime"/param

''' returns/returns

''' remarks/remarks

Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime

Dim sysTime As DateTime = DateTime.Now

Return sysTime.Add(TimeSpan.Parse(sDatetime))

End Function

End Module

我想知道vb.net中的时间怎么做相加和相减，谢谢

DateAdd函数 返回

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，是所要加上去的时间间隔。

number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

DateDiff函数 返回

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。