自定义函数的返回值？？？

[308012157]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim HH As Date
TextBox1.Text = "2004-1-20"
Z25H((CDate(TextBox1.Text)), HH)
TextBox2.Text = HH
End Sub

Private Function Z25H(ByVal YRQ As Date, ByVal HH As Date) As Date
Dim N As String
Dim Y As String
N = Year(YRQ)
Y = Month(YRQ)
HH = CDate(N & "-" & Y & "-" & "25")
Return HH
End Function

原本想HH 的返回是"2004-1-25"，结果返回的是"0：00：00"


请问是什么原因，该怎样修改？

[sunmoonfly]

Private Function Z25H(ByVal YRQ As Date, ByVal HH As Date) As Date
把Byval HH as Date 换成ByRef就可以了，byval关键字传递的可变参数将不会被过程内的操作改变，byRef可以

[Paradise_heida]

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim HH As String

TextBox1.Text = "2004-1-20"

HH = Z25H((CDate(TextBox1.Text))).ToString

TextBox2.Text = HH

End Sub
Private Function Z25H(ByVal YRQ As Date) As String
Dim N As String
Dim Y As String
N = YRQ.ToString("yyyy")
Y = YRQ.ToString("MM")

Return CType(N & "-" & Y & "-" & "25", Date)
End Function

[北京的雾霾天]

你应把这个传值的参数改成传址的才可以,你这样试试看:

Private Function Z25H(ByVal YRQ As Date, ByRef HH As Date) As Date

[LoveCherry]

需要是引用传递

[Paradise_heida]

同意 hbxtlhx(踏雪寻岩)

有时候，有必要使用ByRef（传址）

[cnhgj]

传址也可以，同样也可以取返回值

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "2004-1-20"
Dim HH As Date = Z25H((CDate(TextBox1.Text)))
TextBox2.Text = HH
End Sub

Private Function Z25H(ByVal YRQ As Date) As Date
Dim N As String
Dim Y As String
N = Year(YRQ)
Y = Month(YRQ)
Return = CDate(N & "-" & Y & "-" & "25")
End Function

[兔子-顾问]

没错，你的函数有返回值，直接
TextBox2.Text = Z25H((CDate(TextBox1.Text)), HH)

[308012157]

谢谢各位高手帮忙