Conocer la Semana de una fecha dada

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 As Integer

    FechaPrimAnyo = CDate("01/01/" & CStr(Year(Fecha)))
    DiaSemanaPrimAnyo = WeekDay(FechaPrimAnyo)
    DiaSemanaFecha = WeekDay(Fecha)
    DiasTranscurridos = Fecha - FechaPrimAnyo + DiaSemanaPrimAnyo - 1
    CalculaSemana = (DiasTranscurridos  7) + 1
End Function

Publicado en es.comp.lenguajes.visual-basic por Gabriel Ortí i Flores

– – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – –

Un código mucho más corto, publicado por Enrique Medina en microsoft.public.es.vb el 28/08/2003

Function CalculaSemana(ByVal Fecha As Date) As Integer
    CalculaSemana = DatePart("ww", Fecha)
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s