类定义错误求助

Public Property Set d(ByVal sTimeDate As String) 本行编译出错“相同属性的过程定义不一致，或属性过程中包含可选参数，参数数组，或一个无效的设置最后参数”
    sTime = sTimeDate
    pitm_parsetime sTime, 0, lTIME
    piar_value iID, lTIME, ARCVALUECODE, fval, lVal
End Property

以下是类的整个定义。
Private sTAG As String, iID As Long, sDESC As String, fVAL As Single, lTIME As Long, lVal As Long, sTime As String

Public Property Set Tag(ByVal sTagName As String)
    sTAG = sTagName
    pipt_findpoint sTAG, iID
End Property
Public Property Get Tag() As String
    Tag = sTAG
End Property

Public Property Set ID(ByVal lTagID As Long)
    iID = lTagID
End Property
Public Property Get ID() As Long
    ID = iID
End Property

Public Property Set Value(ByVal fTagValue As Single)
    fVAL = fTagValue
End Property
Public Property Get Value() As Single
    Value = fVAL
End Property

Public Property Get d() As String
    pitm_formtime lTIME, sTime, Len("DD-MMM-YY HH:MM:SS")
    d = sTime
End Property
Public Property Set d(ByVal sTimeDate As String)
    sTime = sTimeDate
    pitm_parsetime sTime, 0, lTIME
    piar_value iID, lTIME, ARCVALUECODE, fval, lVal
End Property


[ 本帖最后由 astralrider 于 2014-5-13 10:38 编辑 ]