clsdate.cls

控件名称：日期控件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsDate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'名称：日期类
'接口：ShowDate()；SetInitDate()；
'作者: 刘玉强
'日期：2002-12-13（START）->2002-12-16（END）
'
'
'
Private m_Date As String
Private m_DlgDate As New DlgDate

Public Function ShowDate()
    If m_Date = "" Then m_Date = Date
    m_DlgDate.Show vbModal
End Function
'初始化日期
Public Function SetInitDate(ByVal paraDate As String)
    If Not IsDate(paraDate) Then
        MsgBox "初始日期设置不合法，载入系统日期。", vbOKOnly, "提示"
        m_Date = Date
    End If
    m_Date = paraDate
    m_DlgDate.SetInitDate m_Date
End Function

Public Function GetSelectDate() As String
    If (m_DlgDate.GetButtonTF) Then
        m_Date = m_DlgDate.GetSelectDate
    End If
    GetSelectDate = m_Date
End Function