Ancho de lista de combobox

kl, te paso mi funcion, porque no se como llegas a tener valores
numericos, ya que la resta la hace pero sigue siendo fecha, hechale un
vista x favor :

*donde anio1,mes1,dia1 son comboboxs

Public Function diasdif () As integer
Dim fechaingresada As Date
Dim fechaactual As Date
dim dias as date

fechaactual = Now
fechaingresada = DateSerial(anio1.Value, mes1.Value, dia1.Value)
dias = fechaactual - fechaingresada
'dias me queda como fecha, y como hago ahora para saber la
diferencia??
????
End Function

saludos...

ya esta kl, el tema que declaraba la varialble que almacenaba la resta
como integer y se producia desbordamiento, gracias!!!

saludos

Hola Diego,

Yo diria mas bien que la declarabas como fecha (Date) mientras deberia ser
Integer o mejor aun Long. Generalmente en VBA es preferible declarar Long
tanto si vale Integer como Long, porque Long es mas eficiente.

Saludos,
KL

"diegoar" wrote in message
news:

ya esta kl, el tema que declaraba la varialble que almacenaba la resta
como integer y se producia desbordamiento, gracias!!!

saludos

Tambien puedes usar la funcion DateDiff (mira en la ayuda del VBA)

"KL" escribió en el mensaje
news:

Hola Digo,

Esto lo consigues mediante simple resta. El valor de fecha es representado
por el numero de dias transcurridos desde 01/01/1900. Por lo tanto a dia
de hoy: Date8493 y, digamos, #01/01/2005#8353. Total que
=Date-#01/01/2005#8493-383530 dias.

Saludos,
KL

"diegoar" wrote in message
news:

kl, necesito ahora restar dos fechas, es decir, tengo 2 fechas (date) y
necesito saber en dias la diferencia entre ellas. como lo puedo
implementar. Es decir, date1 y date2. tengo que conocer cuantos dias
pasaron (de diferecia) entre date1 y date2.

saludos
diego