time.bas

某公司的电话录音程序

Attribute VB_Name = "time"
Public Function mGettime() As String
  Dim Tem As String
  Tem = Format(Now, "YYYYMMDDHHMMSS")
  mGettime = Tem
End Function
Public Sub DepartfName(fName As String, mDate As String, mTime As String, mChanel As String, mphoneNo As String, ByVal Weishu As Integer, fStatus As String)
'分离文件名为日期，时间，通道，电话号码四部分
      mDate = Mid(fName, 1, 4) & "-" & Mid(fName, 5, 2) & "-" & Mid(fName, 7, 2)
      mTime = Mid(fName, 9, 2) & ":" & Mid(fName, 11, 2) & ":" & Mid(fName, 13, 2)
      mChanel = Mid(fName, 15, 1)
      fStatus = Mid(fName, 16, 1)
      mphoneNo = Mid(fName, 17, Weishu)
End Sub