bookdate.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 = "BookDate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Function getDate() As String
    Dim nowDate As Date
    Dim tday As Integer
    Dim tmonth As Integer
    Dim tyear As Integer
    Dim tmpDate As String
    nowDate = Date
    tday = day(nowDate)
    tmonth = month(nowDate)
    tyear = year(nowDate)
    tmpDate = CStr(tmonth) + "/" + CStr(tday) + "/" + CStr(tyear)
    getDate = tmpDate
End Function