(vb学习中...)时间格式如何进行加减？

Question

(vb学习中...)
例如text1.text="14:20:00"
我要把14:20:00减去半小时，在text2.text中得到"13:50:00"
查了半天的VB的书，没看见有时间加减这方面的函数啊。
新手上路，多多关照.

Answer 1

TimeValue("14:20:00")-30/(24*60)   '--30表示30分钟

Answer 2

运行后当text1.text="03:20"
        text2.text="2:50"
   能否让文本框得到"02:50"这个格式？

Answer 3

这个好办啊，你用left函数取左边第二个字符，如果是“：”则给该字符串前+0，如果不是，则原字符串不变或者用个format函数一规范就可以了（推荐）

Answer 4

Dim str As String
str = "2:50"
Text1.Text = Format(str, "hh:mm")这样text1.text就会显示02：50如果带秒就是 "hh:mm:ss"

Answer 5

text2.text=dateAdd("n", -30, text1.text)

Answer 6

    Text1.Text = "03:20"
    Text2.Text = DateAdd("n", -30, Text1.Text)
    Text2.Text = Format(Text2.Text, "hh:mm")