Visual Basic - calendario

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de diana

calendario

Publicado por diana (147 intervenciones) el 12/04/2001 01:50:44
necesito tomar el ultimo dia del mes actual, por ejemplo si es abril tomar el 30, y asi con los demas meses, existe una funcion que me de esto o alguien tiene algo similar
De antemano gracias
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:calendario

Publicado por Adán (79 intervenciones) el 14/04/2001 22:13:37
Public Function LastDay(dDate As Date) As Integer
Dim i As Integer
For i = 31 To 28 Step -1
If IsDate(Month(dDate) & "/" & Trim(Str(i)) & "/" & Year(dDate)) Then '<---si marcas un día más que el que tiene el mes, entonces, ya no es una fecha aceptada
LastDay = i
Exit Function
End If
Next
End Function
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

RE:calendario 2

Publicado por Adán (39 intervenciones) el 14/04/2001 22:20:46
¿Qué tal este otro?

Public Function FindEOM(ByVal dDate As Date) As String
Dim sNextMonth As Date
Dim sEndOfMonth As Date

sNextMonth = DateAdd("m", 1, dDate) '<--agrega un mes: de 14/05/2001 a 14/06/2001
sEndOfMonth = sNextMonth - DatePart("d", sNextMonth) '<--Elimina los días del mes (14), quedando el último día del mes
FindEOM = Day(sEndOfMonth)
End Function
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