Visual Basic - Ultimo dia del mes

Hola colegas la verdad nesecito urgente saber como saco el dia final de un mes ya que es para sacar la nomina.

puedes usar tablas, ahi guardas los meses y sus dias finales.

La funcion Dateserial, la utilice para lo mismo que vos la estas utilizando. yo desarrollé un software para la empresa donde laboro y tuve que realizar lo mismo. Aunque yá no me acuerdo; estoy revisando los manuales y algoritmos por encima y es asi:
Necesito sacar la fecha final de febrero del 2010
Año=2010
Mes=2

Label5.Caption = DateSerial(Año, Mes + 1, 1 - 1)

como vés, el año va normal. al mes, le sumo una unidad, osea, que como Mes me da un 3 (marzo) y luego le doy el dia 1(de marzo) menos 1 como resultado, el dia 1 menos 1 nos da el dia final del anterior mes. osea el de febrero.

pruebalo, se que te debe dar. sin embargo como te dije, lo mire por encima y no me acurdo bien del codigo fuente.

Revisa la funcion en las MSND Library.

Andres
Medellin - Colombia.

claro puedes usar esto:

dim ultimo as integer

ultimo = day(dateserial(2005,6 + 1,0))
ultimo = 30

30 es el ultimo dia de Julio (6)

fecven=201807 año y mes

ANOF = Left(fecven, 4)
MESF = Right(fecven, 2)

DIASF = Day(DateSerial(ANOF, MESF + 1, 1 - 1))
fechafinal= fecven & LlenarCeros(DIASF, 2)

fechafinal= 20180731