请问日期格式问题。

[58556758]

dateadd("m",1,01-01-????")
????处的年如何用me.text1.text处输入的值代替？

[flc]

同意ysyan(竹馨)！
同意ysyan(竹馨)！
同意ysyan(竹馨)！

[strongfisher]

dim s as string
dim d as date
s="01-01-"& text1.text
d=format(s,dd-mm-yyyy)
d=dateadd("m",1,d)

[射天狼]

DateAdd("m", 1, me.text1.text)

[神奇的章鱼哥]

dateadd("m",1,"01-01-" & text1.text)

[kmzs]

强的

[coolboy0000love]

这样效果回比较好
dateadd("m",1,"01-01-" & text1.text)

[BraveHorse]

dateadd("m",1,format("01-01-" & text1.text,"dd-mm-yyyy"))

[NotReady]

dateadd("m",1,"01-01-" & text1.text)

[northwolves]

DateAdd("M", 1, DateSerial(Text1.Text, 1, 1))

[Lucky527]

我帮你查了一些资料，你看看下面的这个，能够实现的，只是用Input代替TEXT：
Dim FirstDate As Date
'声明变量。
DimIntervalTypeAsString
DimNumberAsInteger
DimMsg
IntervalType="m"
' "m"指定以“月份”作为间隔。
FirstDate=InputBox("Enteradate")
Number=InputBox("Enternumberofmonthstoadd")
Msg="Newdate:" & DateAdd(IntervalType,Number,FirstDate)
MsgBoxMsg

[ysyan]

dateadd("m",1,"01-01_" & trim(text1.text)),你还得判断text是否是合理的字符，否则会报错，必须为数字性的，isnumeric(text1) and len(text.text)=4 or 2

[williamtom]

同意ysyan(竹馨)！