Ahí va una función que hace eso, calcular la semana de una fecha dada. Function CalculaSemana( ByVal Fecha As Date ) As Integer Dim FechaPrimAnyo As Date Dim DiaSemanaPrimAnyo As Integer Dim DiaSemanaFecha As Integer Dim Sumando As Integer Dim DiasTranscurridos...