module2.bas

学生宿舍管理系统vb源码

Attribute VB_Name = "Module2"
Public cNum As Integer
Public tNow As String

Public Function fName() As String
    Dim str As String
    str = Year(Now)
    If Len(Month(Now)) = 1 Then
        str = str & 0 & Month(Now)
    Else
        str = str & Month(Now)
    End If
    If Len(Day(Now)) = 1 Then
        str = str & 0 & Day(Now)
    Else
        str = str & Day(Now)
    End If
    If Len(Hour(Now)) = 1 Then
        str = str & 0 & Hour(Now)
    Else
        str = str & Hour(Now)
    End If
    If Len(Minute(Now)) = 1 Then
        str = str & 0 & Minute(Now)
    Else
        str = str & Minute(Now)
    End If
    If Len(Second(Now)) = 1 Then
        str = str & 0 & Second(Now)
    Else
        str = str & Second(Now)
    End If
    tNow = str
    fName = str
End Function