Visual Basic - Ultimo dia del mes

Life is soft - evento anual de software empresarial
 
Vista:

Ultimo dia del mes

Publicado por Gonzalo (1 intervención) el 22/10/2003 18:39:28
Hola a todos,

he estado mirando la manera de saber el último dia de un mes en cuestión y no encontré ninguna respuesta que me fuera bien.
Al final, ohh milagro, conseguí encontrar la manera y la pongo aquí por si a alguien le interesa.
Es utilizando DateSerial(año, mes, dia). Pues bien, si queremos saber el último dia de marzo, por ejemplo, hay que poner DateSerial(2003,4,1-1). Lo que hace esto es restar un dia al 1 de abril, por lo que mostraría 31 de marzo.

Pues eso, que si le sirve a alguien, pues me alegro, que ya iba siendo hora de ayudar un poquito.

Un saludo a todos
Gonzalo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ultimo dia del mes

Publicado por lenilax (165 intervenciones) el 09/02/2004 21:13:46
BRILLANTE!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ultimo dia del mes

Publicado por Rodolfo (1 intervención) el 20/07/2012 20:36:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Main
Fes = DateSerial(Year(Date()),Month(Date()),Day(Date())-1)
 
ano = year(date())
		If Month(Date()) < 10 Then
			F_Mes = "0" & Month(Fes)
		Else
			F_Mes = Month(Fes)
		End If
 
		If Day(Date()) < 10 Then
			F_Dia = "0" & Day(Fes)
		Else
			F_Dia = Day(Fes)
		End If
 
Fecha = 	F_Mes & F_Dia & Mid(ano,3,2)
F_ini = ano & F_Mes & F_Dia
 
msgbox Fecha
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar