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
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 de aromman
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
//////////////////
*//////////////////////////////
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
//////////////////
?
