Visual Basic - funcion para proagrmar una fecha

me gustaria saber que funcion necesito para programar una fecha de devolucion de un libro en un sisitema de biblioteca

hola roberto

para programar la fecha hace lo siguiente
cada libro puede tener definido la cantidad de dias que se puede mantener fuera de la bibloteca

al guardar el registro de salida del libro pone lo siguiente

Fecha_Entrega = DateAdd("d", 5, Fecha_Pedido)
donde 5 son los dias que el libro puede estar fuera de la biblioteca
y guardas Fecha_Entrega

espero que te sirva

cristian guerra

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