bookdate.cls

来自「一个VB开发的很好的图书信息管理系统,在学校的毕业论文中得到了很高的分数」· CLS 代码 · 共 28 行

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