Visual Basic - calcular fecha

Life is soft - evento anual de software empresarial
 
Vista:

calcular fecha

Publicado por Migdalia (11 intervenciones) el 20/06/2002 22:27:25
hola, bueno mi pregunta es la siguiente: se los voy a explicar con un ejemplo. Estoy haciendo una historia clinica y necesito que me calcule la fecha de la proxima consulta. como lo hago o que comando utilizo.
Le agradeceria su ayuda.

Hasta luego.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:calcular fecha

Publicado por nikolaievp (1 intervención) el 20/06/2002 22:55:10
si sabes el numero de dias dentro de los cuales darás la proxima cita y la fecha a partir de cuando los vas a calcular puedes utilizar la funcion dateadd("d",5,now())
donde "d" es si el numero que en este caso es 5 son los dias
si quieres meses es "m" y asi....
now() en este caso es la fecha del sistema si quieres una fecha especifica pues la colocas en vez del now() espero te sirva bye...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular fecha

Publicado por Nelson Fredericksen (125 intervenciones) el 20/06/2002 23:02:14
Parece que la ayuda anterior (Tablas de PAcientes y Visitas al médico)funciono, así que espero que la presente también sirva de algo
Bonito nombre y por estas latitudes no conocido (Chile)

Dim PrimeraFecha As Date ' Declara las variables.
Dim TipoIntervalo As String
Dim Número As Integer
Dim Msj
TipoIntervalo = "d" ' "d" especifica días como intervalo.
PrimeraFecha = InputBox("Escriba una fecha")
Número = InputBox("Escriba el número de días a agregar")
Msj = "Nueva fecha: " & DateAdd(TipoIntervalo, Número, PrimeraFecha)
MsgBox Msj
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular fecha

Publicado por Daniel (55 intervenciones) el 21/06/2002 05:19:59
He diseñado un control ocx, si te interesa te lo envio.-
Saludos
Daniel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar