vb中关于日期的换算问题?????????

Question

我现在正在做一个图书馆的管理系统(我们的课程设计),现在碰到一个问题,就是关于这个日期.
比如今天是2003-6-25,我想加两天,既是要显示20003-6-27,应该怎么做?不会是自己写一个函数吧!
谢谢先!!!!!!!!!!

Answer 1

dim a as datea=CDate(2003-6-25) + 2

Answer 2

Date + 2
是时间变量即OK  
可如下:
Dim i As Date
i = Date
Debug.Print i + 2

Answer 3

dim a as datea=CDate("2003-6-25") + 2
前面错了

Answer 4

不能把a转换为字符串类型吗?
我想把它在text1.text中显示出来?

Answer 5

text1.text = dateadd("d",2,date)
'文本       =  函数（“以天计算”，2天，系统当前日期）==================相关资料===========================
DateAdd函数以Variant类型返回包含在一个日期加上了一段时间间隔的结果.语法
DateAdd(interval,number,date)其中Interval是必需的字符串表达式,是所要加的时间间隔.Number是必需的数值表达式,是要加上的时间间隔的数量,其数值可为正数(得到未来的日期),也可以为负数(得到过去的日期).Date是必需的Variant类型或表示日期的字符类型,该日期还加上了时间间隔.interval参数具有以下设定值:
Yyyy:年
Q:季
M:月
Y:一年的日数
D:日
W:一周的日数
Ww:周
H:时
N:分钟
S:秒
示例:
Dim FirstDate As Date     '声明变量.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType="d" '"d"指定以"日"作为间隔.
FirstDate=InputBox("请输入日期:")
Number=InputBox("请输入增加的天数")
Msg="新的日期为:"&DateAdd(IntervalType,Number,FirstDate)
Debug.Print Msg