Hoy he subido un ejemplo que surgió a raíz de una pregunta en el grupo de news://microsoft.public.es.access y unas funciones que había utilizado en alguna bd se me ocurrió hacer este ejemplo con el que puedes manejar cualquier informe de cualquier base de datos e imprimirlo en la impresora que quieras eligiendo también el número de copias.

En este día mi hermano hubiese cumplido 50 años, es un día triste para la familia, además dentro de 17 días hará un año que no está con nosotros.

Ver álbum completo

A el no le gustaba cumplir años, ni que se lo recordasen, a pesar de ello yo siempre le llamaba o enviaba una felicitación.

Jorge, no te olvidamos.  

Hoy he vuelto a coger la bici, tras 7 meses de inactividad, hay que ir poco a poco hasta ponerse un poco en forma, 1,5 h. 34 Km, en la mayor parte semillano, con unos cuantos repechos, hasta el pueblo de Tuñon, por el parque de invierno, La Manjoya, Las Caldas y Caces, toda la vuelta pica hacia arriba, excepto el tramo de ciudad, ya que tengo que atravesarla entera para llegar a casa.

Mi sitio en Office Live

A ver si puedo dedicarle un poco de tiempo y agregarle algo de contenido.

Public Function DamePeriodo(ByVal DesdeFecha As Date, _
                        ByVal HastaFecha As Date) As String
    'Función para sacar los días trabajados entre dos fechas
    'cuenta el día de inicio y el de fin
    Dim m(2) As Integer, d(2) As Integer, y(2) As Integer
    Dim x As Integer
    Dim res(2) As String
    x = 0
    d(x) = Day(DesdeFecha)
    m(x) = Month(DesdeFecha)
    y(x) = Year(DesdeFecha)
    x = 1
    d(x) = Day(HastaFecha)
    m(x) = Month(HastaFecha)
    y(x) = Year(HastaFecha)
    If y(1) + 1 >= y(0) Then
        y(2) = y(1) - y(0)
    Else
        y(2) = 0
    End If
    If m(1) + 1 >= m(0) Then
        m(2) = m(1) - m(0)
    Else
        m(2) = (m(1) + 12) - m(0)
        y(2) = y(2) - 1
    End If
    If d(1) + 1 >= d(0) Then
        d(2) = (d(1) - d(0)) + 1
    Else
        m(2) = m(2) - 1
        d(2) = (d(1) + Day(DateSerial(y(1), m(1), 1) - 1)) - d(0) + 1
    End If
    Select Case y(2)
        Case 0
            'nada
            res(0) = ""
        Case 1
            res(0) = y(2) & " año"
        Case Else
            res(0) = y(2) & " años"
    End Select
    Select Case m(2)
        Case 0
            'nada
            res(1) = ""
        Case 1
            res(1) = m(2) & " mes"
        Case Else
            res(1) = m(2) & " meses"
    End Select
    Select Case d(2)
        Case 0
            'nada
            res(2) = ""
        Case 1
            res(2) = d(2) & " día"
        Case Else
            res(2) = d(2) & " días"
    End Select
    DamePeriodo = res(0)
    If DamePeriodo = "" Then
        DamePeriodo = res(1)
    Else
        If res(2) = "" Then
            DamePeriodo = DamePeriodo & " y " & res(1)
        Else
            DamePeriodo = DamePeriodo & ", " & res(1)
        End If
    End If
    If DamePeriodo = "" Then
        DamePeriodo = res(2)
    Else
        If res(2) <> "" Then
            DamePeriodo = DamePeriodo & " y " & res(2)
        Else
            DamePeriodo = DamePeriodo '& " y " & res(2)
        End If
    End If
End Function