Visual Basic - Como restar dias desde base de datos

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como restar dias desde base de datos

Publicado por pablo (52 intervenciones) el 05/02/2021 17:04:51
Buenos días
Tengo una aplicación de mensajería , en la cual el sistema debe informar la cantidad de vehículos a los que se les vence el seguro.

Por ejemplo para contar las ventas en efectivo de un dia , hago lo siguiente
1
2
3
4
5
6
7
8
9
Dim FECHA2 As String = fecha.Text
Dim tipo As String = "Efectivo"
Dim consulta1 As New OleDb.OleDbDataAdapter("SELECT COUNT (NUMERO)  FROM CAJA WHERE FECHA1 = '" & FECHA1 & "' AND TIPO = '" & tipo & "'  ", conexion)
consulta1.SelectCommand.CommandType = CommandType.Text
Dim tabla1 As New DataTable  ' Creamos una tabla en memoria ram
consulta1.Fill(tabla1)
 
 
Efctivo.Text = tabla1.Rows(0).Item(0)


Y eso me cuenta las ventas en efectivo.

Ahora lo que necesito contar es todos los vehículos a los que les queda menos de 60 días de seguro. Pero no se como hacerlo.

Desde ya muchas gracias.

Saludos
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
sin imagen de perfil

Como restar dias desde base de datos

Publicado por anonymous (5 intervenciones) el 05/02/2021 17:14:51
Le das un format para que extraiga solo el día y los restas, sin embargo hacerlo así solo funciona si la resta es en el mismo mes, porque si es entre meses distintos unos y otros traen 30 o 31 y hay que tener en cuenta el bisiesto, lo mejor es hacerlo mediante DateDiff

Revisa en:

http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDateDiff.asp
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
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como restar dias desde base de datos

Publicado por pablo (52 intervenciones) el 05/02/2021 17:23:42
Si conozco el DateDiff y lo uso para sacar cuantos días hay entre dos fechas.

Lo que no se es como implementarlo al select (count) para saber a cuantos choferes se les va a vencer el seguro
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
sin imagen de perfil

Como restar dias desde base de datos

Publicado por anonymous (5 intervenciones) el 05/02/2021 17:29:03
Entonces tu problema es más de SQL, tienes que agrupar por las columnas implicadas y poder hacer el count adecuado
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
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como restar dias desde base de datos

Publicado por pablo (52 intervenciones) el 05/02/2021 17:31:32
Si, es por lo que pedi ayuda
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
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como restar dias desde base de datos

Publicado por pablo (52 intervenciones) el 05/02/2021 19:24:53
Aca dejo la solucion por si alguien la necesita

Esto lo que hace es buscar en toda la base de datos los seguros que se vencen en 15 o menos dias

1
2
3
4
5
6
7
8
Dim NUMERO As Integer = 15
Dim ahora As Date = Now().ToString("dd/MM/yyyy")
Dim consulta4 As New OleDb.OleDbDataAdapter(" select * from CHOFERES where VTO2 between datevalue('" + ahora + "') and datevalue('" + DateAdd(DateInterval.Day, +CDbl(NUMERO), ahora) + "')", conexion)
consulta4.SelectCommand.CommandType = CommandType.Text
Dim tabla4 As New DataTable  ' Creamos una tabla en memoria ram
consulta4.Fill(tabla4)
 
valor.Text = tabla4.Rows(0).Item(0)
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