Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Option Explicit
Public Sub MakeDir(DirPath As String)
On Error GoTo error
MkDir DirPath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
Private Sub Form_Load()
FActual = Format(Now, "dd_mm_yyyy_HH_MM")
Dim o As String, p As String, q As String, neo As String
o = "20": q = "18": p = "09"
neo = o & "/" & p & "/" & q
Dim A As Long, b As Long, c As Long
A = Format(Date, "#####"): b = (Format(o & "/" & p & "/" & q, "#####") + 900): c = Format(neo, "#####")
If A > b Then EndIf A > c Then If A < (c + 3) Then End
