Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/10/2010, 13:20
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 2 meses
Puntos: 53
Respuesta: periodos por quincenas

Hola:

Asi al vuelo se me ha ocurrido lo siguiente:

Código vb:
Ver original
  1. Private Sub Quincenas(Año As Integer)
  2.   Dim Mes As Integer
  3.   For Mes = 1 To 12
  4.     List1.Additem DateSerial(Año, Mes, 1) & " " & DateSerial(Año, Mes, 15)
  5.     List1.Additem DateSerial(Año, Mes, 16) & " " & DateAdd("d", -1, DateSerial(Año, Mes + 1, 1))
  6.   Next
  7. End Sub

Para probarlo simplemente necesitas añadir un Command1 y un List1 en un proyecto nuevo, después prueba lo siguiente:

Código vb:
Ver original
  1. Private Sub Command1_Click()
  2.   Quincenas 2008  'Aqui indicas el año que quieras.
  3. End Sub
Si te sirve la idea y tienes alguna duda del código te lo comento.
La primera parte es lógica puesto que la 1ª quincena siempre es la misma de 01 al 15

La segunda quincena siempre empieza en el 16 y llega a fin de mes, por lo que la funcion obtiene el día 1 del mes siguiente y le resta 1 con lo que conseguimos el último día del mes anterior.

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...