Pregunta: | 51813 - FUNCION QUE ME INDIQUE EL ULTIMO DIA DEL MES |
Autor: | gerson alberto |
Queria saber el nombre de alguna función o procedimiento que me indique el ultimo dia de cada mes, es decir que me diga que enero tiene 31 diasy que febrero tiene 28 o 29 muchas gracias. |
Respuesta: | miguel juarez |
Hola, eso es facil, puede haber otras pero te recomeindo que tomes el primer dia del mes siguiente. Por ejemplo si quiere saber el ultimo dia de diciembre entonces por ejemplo tomas 01/01/2007 y le restas uno, y te devuelve los datos que necesitas |
Respuesta: | Leugim |
Private Sub Command1_Click() Dim Primero As String Dim Ultimo As String Primero = DateSerial(Year(Now), Month(Now) + 0, 1) Ultimo = DateSerial(Year(Now), Month(Now) + 1, 0) MsgBox "El primer día del mes es: " & Primero & vbCrLf & "El " & "último es: " & Ultimo End Sub |