module_sys.bas

易通汽车维修信息管理系统初期开发版本

Attribute VB_Name = "Module_SYS"
Public Function Conn() As String
    Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\YtData.dat;Persist Security Info=False"
End Function

Public Function UDate() As String
    N = Year(Date)
    Y = Month(Date)
    R = Day(Date)
    
    If Y <= 9 Then Y = "0" & Y
    If R <= 9 Then R = "0" & R
    
    UDate = N & Y & R
End Function
Public Function UTime() As String
    S = Hour(Time)
    F = Minute(Time)
    M = Second(Time)
    
    If S <= 9 Then S = "0" & S
    If F <= 9 Then F = "0" & F
    If M <= 9 Then M = "0" & M
    
    UTime = S & F & M
End Function