ممنونم دوست عزيز
فقط يه راهنمايي ديگه
فايل شما تاريخ را به صورت 930901time230425 ذخيره ميكند
من براي قسمت ساعتش از جدا كننده استفاده كرم به اين صورت23;11;17 13930901time
چگونه بايد باي قسمت تاريخش هم جدا كننده تايين كرد
کد PHP:
Dim s, M, h, t, yyyy, mm, dd, file As String
Dim Zaman
Dim Fn
Public Sub SaveFaileNow()
Call Addres
Fn = Application.GetSaveAsFilename(Zaman)
ActiveWorkbook.SaveCopyAs Filename:=Fn & ".xls"
End Sub
Public Sub Addres()
file = ActiveWorkbook.Path
s = Second(Time)
M = Minute(Time)
h = Hour(Time)
t = J_NORMDATE(J_TODAY(1))
yyyy = Year(Now)
mm = Month(Now)
dd = day(Now)
If Len(mm) = 1 Then mm = "0" & mm
If Len(dd) = 1 Then dd = "0" & dd
If Len(h) = 1 Then h = "0" & h
If Len(M) = 1 Then M = "0" & M
If Len(s) = 1 Then s = "0" & s
Zaman = "BACKUP" & t & " sa@t " & (h) & ";" & (M) & ";" & (s)
End Sub
علاقه مندی ها (Bookmarks)