在线等待！！！！！

[yaojie413]

用DTPicker取的时间后
用Tempstr=format(dtpicker.value,"yy-mm-dd")转换后
用mid(Tempstr,1,2)取出的时间
在text中显示是03

某字符串Str=xxxx-xx-xxxx-xx
用mid(Str,6,2)插入某字符串后却显示为
xxxx-3-xxxx-xx
请问怎么显示
xxxx-03-xxxx-xx啊

[yaojie413]

是插入mid(Tempstr,1,2)取出的时间
后显示不对

[northwolves]

没看明白，不过你最好用YEAR（），MONTH（），DAY（）等函数取出相应字符串

[ChengGuiNan]

UP

[sunnychild]

没太看明白，那你干脆再定义一个变量，把文本框显示的字符赋给他，然后再操作

[yaojie413]

就是说用DTPicker选出一个时间
取出其中的年
插入字符串xxxx-xx-xxxx-xx中取代
第二个XX
的时候显示出来的是3不是我想要的03
因为现在是2003嘛
我想要的效果的是
XXXX-03-XXXX-XX

[yaojie413]

year取出的是2003不是03啊

[northwolves]

Private Sub Command1_Click()
Dim A As String, B As String
A = "XXXX-XX-XXXX-XX"
B = "03"
A = Left(A, 5) & B & Right(A, 8)
MsgBox A
End Sub