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也可以加