RE:funcion para proagrmar una fecha
El dia de devolucion depende segun en la bibloteca muchos son de 3 a 4 dia, por lo tanto :
'Como en Toda Biblioteca Publica No Abren los Domingos (No Todas)
'Suponiendo que si saco un libro el dia viernes lo tengo que entregar en 3 dias pero como el
'domingo no abren entonces lo tengo que entregar hasta el lunes
'El Primer dia de la Semana es Domingo
Private Sub cmdEntregar_Click()
Dim AuxDia
Dim Dia
Dim DiaDev As Integer
'Verificar que Dia es
AuxDia = DatePart("w", Format(Now, "dd/mm/yyyy"))
If AuxDia = 6 Then 'Viernes
DiaDev = 3
Else
DiaDev = 2
End If
Dia = DateAdd("d", DiaDev, Format(Now, "dd/mm/yyyy"))
MsgBox "Dia a Entregar el Libro : " + CStr(Dia), vbInformation
End Sub