Os adjunto otro manual que he preparado para mostrar como se puede agrupar, un encolumnado de una tabla dinámica que 
muestra días, en meses, trimestres, años….
He confeccionado 
este manual, dónde podeis aprender a hacer este tipo de gráficos excel, tan nemotécnicos para explicar de una manera “bien fácil” el impacto que tiene:
He encontrado este link, que quiero compartir, con todos vosotros. Todos los manuales de MS-Office (2003 y 2007), en PDF (son en inglés!)
a) DateDiff(“ww”, “1/1/” & Year(Now()), Now())
b) NumeroSemanaISO’* Calcula el número de semana de la fecha pasada o por defecto de la actual’* según la ISO 8601 la primera semana del año es la que tiene al menos cuatro’* días del nuevo año’* Argumentos: datFecha => Opcional Fecha de calculo’* uso: NumeroSemanaISO (Date)’* Attributed to Daniel Maher’* ESH 20/04/05 16:05
‘*******************************************************************************
Public Function NumeroSemanaISO(Optional datFecha As Date) As IntegerDim lngFecha As Long
On Error GoTo NumeroSemanaISO_TratamientoErrores
If datFecha = 0 Then
datFecha = DatelngFecha = DateSerial(Year(datFecha – Weekday(datFecha – 1) + 4), 1, 3)
NumeroSemanaISO = Int((datFecha – lngFecha + Weekday(lngFecha) + 5) / 7)NumeroSemanaISO_Salir:
On Error GoTo 0
Exit Function
NumeroSemanaISO_TratamientoErrores:
MsgBox “Error ” & Err.Number & ” en proc.: NumeroSemanaISO de Módulo: Módulo1 (” & Err.Description & “)”
Resume NumeroSemanaISO_Salir
End Function ‘ NumeroSemanaISO
‘*******************************************************************************
‘* UltimoDiaMes
‘* Devuelve el la fecha del ultimo día del mes pasado como parámetro y en su
‘* defecto el actual
‘* Argumentos: datFecha => Fecha a buscar
‘* uso: UltimoDiaMes
‘* Si utilizas este código, respeta la autoría y los créditos
‘* ESH 15/11/07 12:30
‘*******************************************************************************
Public Function UltimoDiaMes(Optional datFecha As Date) As Date
If datFecha = 0 Then datFecha = Date
UltimoDiaMes = DateSerial(Year(datFecha), Month(datFecha) + 1, 0)
End Function ‘ UltimoDiaMes
Os adjunto algunas operaciones curiosas, con fórmulas de fechas, en excel. Quizás la más llamativa es la fórmula que calcula el viernes santo de cada año (que recuerdo que nunca coincide -al menos habitualmente- el mismo dia del año).
Seguro que en ocasiones nos hemos planteado construir tablas de doble entrada, que por su amplitud de ejes de abcisas y ordenadas, hace difícil su gestión. Con este ejemplo, introduciendo el valor de abcisas y ordenadas, nos devuelve automáticamente el valor correspondiente de la coordenada (tabla).
Recent Comments