Numero de semana en VB6

Hola a todos los expertos:
Deseo saber como puedo obtener el numero de semana del mes.
Ej. 1,2,3 ó 4
Nota: la función DatePart me devuelve el numero de semana del año

1 respuesta

Respuesta
1
Maestro, mira no investigue demasiado pero valiéndome de la función DatePart te hice un pequeño código que saca la diferencia entre el datepart de la fecha que quieras vs el datepart del 1er día del mes de dicha fecha + 1, y vas a ver que da. Acá va el código
*//////////////////////////////
Private Sub Form_Load()
MsgBox getNumeroSemana(DateValue("01/08/2005"))
MsgBox getNumeroSemana(DateValue("06/08/2005"))
MsgBox getNumeroSemana(DateValue("07/08/2005"))
MsgBox getNumeroSemana(DateValue("13/08/2005"))
MsgBox getNumeroSemana(DateValue("14/08/2005"))
MsgBox getNumeroSemana(DateValue("20/08/2005"))
MsgBox getNumeroSemana(DateValue("21/08/2005"))
MsgBox getNumeroSemana(DateValue("27/08/2005"))
MsgBox getNumeroSemana(DateValue("28/08/2005"))
MsgBox getNumeroSemana(DateValue("31/08/2005"))
End Sub
Function getNumeroSemana(fecha As Date) As Integer
Dim sFecha As String
sFecha = "01/" & Month(fecha) & "/" & Year(fecha)
getNumeroSemana = DatePart("ww", fecha) - DatePart("ww", DateValue(sFecha)) + 1
End Function
//////////////////
?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas