hacer contar
Publicado por charles (3 intervenciones) el 22/01/2007 10:30:53
como hacer un contador dias que los dias valgan 25 y amentando dias va sumando otros 25 y asi sucesivamente
Valora esta pregunta
0
Function ContadorDias(ByVal numDias As Integer) As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim resultado As Integer
Set db = CurrentDb()
strSQL = "SELECT Max(Numero) AS UltimoNumero FROM tblNumerosSecuenciales WHERE Numero <= " & numDias
Set rs = db.OpenRecordset(strSQL)
If Not rs.EOF Then
resultado = rs!UltimoNumero + (Int(numDias / 25) * 25)
Else
resultado = 0
End If
rs.Close
Set rs = Nothing
Set db = Nothing
ContadorDias = resultado
End Function
SELECT Numero, ContadorDias(Numero) AS DiasContados
FROM tblNumerosSecuenciales;