none
請問 Function 內的 Date / DateTime 格式預設值如何指定 RRS feed

  • 問題

  • 各位好:

     

    Function 的傳入值部分,

    Optional ByVal defaultValue As Integer = 0

    直接指定 defaultValue 預設是 0

     

    那 Date / DateTime 該如何指定?

    Optional ByVal defaultValue As Date = CDate("1800/1/1")

    和 Optional ByVal defaultValue As Date = "1800/1/1"

    都不行,難道只能在更前面先 Dim 個 Date 並給值之後,才能用在這邊嗎?

     

    謝謝。

    2008年3月5日 上午 07:54

解答

  • Hi,

    你可以先用其他的型態,比如說String,之後在Function/Sub裡面再把它轉換成Date來用,例如

    Private Sub(byval ID as string,optional sDate as string="2000/1/1")

    ...CDate(sDate)

    End Sub

    2008年3月5日 上午 08:15
    版主
  • 可以是可以,不過時間值改為用 ANSI-SQL 的寫法,變成要用 #月/日/年#

     

    例如:

    Code Snippet
    Optional ByVal vDate As Date = #1/1/1800#

     

     

    原先在 VB6 習慣的 #年/月/日# 不能用~

    2008年3月5日 上午 10:36
    版主

所有回覆

  • Hi,

    你可以先用其他的型態,比如說String,之後在Function/Sub裡面再把它轉換成Date來用,例如

    Private Sub(byval ID as string,optional sDate as string="2000/1/1")

    ...CDate(sDate)

    End Sub

    2008年3月5日 上午 08:15
    版主
  • 可以是可以,不過時間值改為用 ANSI-SQL 的寫法,變成要用 #月/日/年#

     

    例如:

    Code Snippet
    Optional ByVal vDate As Date = #1/1/1800#

     

     

    原先在 VB6 習慣的 #年/月/日# 不能用~

    2008年3月5日 上午 10:36
    版主