vb.net字符串相减,字符串与数字相减

我想知道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 日的星期为第一周。

vb中字符串能进行相加减吗

可以。字符串的相加为字符串的连接。例如

"a"+"b"="ab".但是字符串不能相减

你给的算式结果为

.04

因为a赋值为12数据类型为数值型。他只是把结果变成了STR型的数据。

vb.net如何运算一个字符串

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

Function Eval(ByVal Expressions As String) As Double

Dim Mssc = CreateObject("MSScriptControl.ScriptControl")

Mssc.Language = "vbscript"

Return CDbl( Mssc.Eval(Expressions))

End Function

不喜欢上面提示的警告的话

textbox2.text=EvalString(textbox1.text)

Function EvalString(ByVal Expressions As String) As String

dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")

Dim o = System.Activator.CreateInstance(oType)

oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})

Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()

End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

vb 字符串相加减

这个问题用vb.net比较简单.......

在text1里输入12

85

74

69

73

91

65

在text2里输入第一个数+第二个数

我这个方法的前提是：

text1里的每个数必需由空格分隔

text2里的文本要用+分隔

----------------------------------------------------------

dim

t1()

as

string

dim

t2()

as

string

dim

t1l,

i

as

integer

dim

temp

dim

r

as

integer,

rs

as

string

'用split函数分隔用户的输入

t1

=

split(text1.text,

"

")

t2

=

split(text2.text,

"+")

'获取数组t1中一共有几个元素

for

each

temp

in

t1

t1l

=

t1l

+

1

next

'直接开始相加

for

each

temp

in

t2

r

=

r

+

t1(i)

rs

=

rs

t1(i)

"+"

i

=

i

+

1

next

'显示结果

rs

=

left(rs,

len(rs)

-

1)

rs

=

rs

"="

r

text3.text

=

rs

----------------------------------------------------------

代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加