Código de Access - Obtener el número de la semana de una fecha dada

Imágen de perfil

Obtener el número de la semana de una fecha dadagráfica de visualizaciones


Access

Publicado el 17 de Agosto del 2017 por Administrador
656 visualizaciones desde el 17 de Agosto del 2017. Una media de 21 por semana
Función que 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.

Versión 1

Actualizado el 05 de Octubre del 2017 (Publicado el 17 de Agosto del 2017)gráfica de visualizaciones de la versión: Versión 1
657 visualizaciones desde el 17 de Agosto del 2017. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de La página Web de Emilio Sancha
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'*******************************************************************************
'* 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 Integer
	Dim lngFecha As Long
 
	On Error GoTo NumeroSemanaISO_TratamientoErrores
 
	If datFecha = 0 Then datFecha = Date
 
	lngFecha = 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



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s4117