todoAccess Articulos

Articulos

Inicio (Articulos)

todoAccess Función DiasPendientes

Función Días Pendientes

función que calcula los días pendientes hasta final de año, a partir de la fecha del sistema.

Sintaxis: DiasPendientes ()

Argumentos: No se requieren, calcula los valores para la fecha del sistema.

Comentarios: Si queremos calcular los días que restan hasta el final del ejercicio activo podemos recurrir a esta función.

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

Vea También: Función Diastranscurridos()

'******************************************************************************
' Función: DiasPendientes
'
' Concepto: Calcula el número de días Pendientes del año en curso.
'
' (c) Angel Pérez Díaz. 1993 - 2003. Todos los Derechos Reservados.
'*****************************************************************************
Public Function DiasPendientes() As Integer
On Error GoTo Error_DiasPendientes
Dim DaysEndYear, DaysToday
DaysToday = DatePart("y", Date)
DaysEndYear = DatePart("y", DateSerial(Year(Date), 12, 31))
DiasPendientes = DaysEndYear - DaysToday
Exit Function
Error_DiasPendientes:
MsgBox Error$, 48, Titulo
Exit Function
End Function

Ejemplo: En este ejemplo se utiliza la función DiasPendientes para devolver los días que restan hasta el final del ejercicio de la fecha del sistema.

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

Dias = DiasPendientes(). Si el día fuera el "26/08/2003"

' Devolvería 127 días que son los que restan hasta el 31 de Diciembre 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