todoAccess Articulos

Articulos

Inicio (Articulos)

todoAccess Función Diastranscurridos

Función Días transcurridos

función que calcula los días transcurridos para el año de una fecha dada.

Sintaxis: Diastranscurridos (Fecha)

Argumentos: Fecha. Se requiere cualquier fecha.

Comentarios: Si queremos calcular los días que han transcurrido desde que comenzó un ejercicio podemos recurrir a esta función. Si en lugar de emplear una fecha determinada utilizamos la función de MS Access Date(), esta nos devolverá los días transcurridos para el año en curso.

Podíamos hacer cambios a esta función y en lugar de realizar el proceso con una fecha, se podría realizar con el valor de un año, pero este trabajo queda para el desempeño de la creatividad del usuario.

Vea También: Función DiasPendientes()

'**********************************************************************
' Función: Diastranscurridos
'
' Concepto: Calcula el número de días transcurridos en el Año a partir de una fecha.
'
' (c) Angel Pérez Díaz. 1993 - 2003. Todos los Derechos Reservados.
'*********************************************************************
Public Function Diastranscurridos(Feent)
On Error GoTo Error_Diastranscurridos
Dim FirstdayYear
FirstdayYear = CVDate("01/01/" & Year(Feent))
Diastranscurridos = DateDiff("d", FirstdayYear, Feent) + 1
Exit Function
Error_Diastranscurridos:
MsgBox Error$, 48, Titulo
Exit Function
End Function

Ejemplo: En este ejemplo se utiliza la función Diastranscurridos para devolver los días que han transcurrido en el año de la fecha indicada.

Dim Dias
' Dias es una variable creada para obtener el valor de la función

Dias = Diastranscurridos("26/08/2003")

' Devuelve 238 días que han transcurrido desde el 1 de enero del 2.003.

Si Este Articulo no cumple con sus expectativas puede:

» Haga de todoAccess su Página Inicio

» Añada todoAccess a sus Favoritos

» Recomiende esta página

» Ayúdenos a mejorar

Dudas y sugerencias sobre este sitio: todoAccess@todoAccess.com - Web diseñada para una resolución optima de 1.280 x 1.0244

Microsoft y el logotipo de Office son marcas o marcas registradas de Microsoft Corporation en Estados Unidos y otros países