Programación General > Visual Basic 6.0 e inferiores

 Guardar Fecha Y Visualizarla Cambiando El Mes

(1/2) > >>

UserCode:
hola!

Se me presento algo y me acorde de un programita guardado que tenia pero es para cambiar el dia de una Fecha, y asi como existe CDate() no encontre ningun CMonth()

Si por ejemplo hoy fuese 20/07/2007 con esto: CDate(Fecha)+1
Saldria asi 21/07/2007

Bueno yo tengo algo que usa CDate(Fecha)-1 porque se trabaja con la informacion del dia anterior, pero en este caso lo que si necesitaria saber es como hacer que no sea el dia sino el Mes.

Es decir, guardando un registro donde la fecha es 22/07/2007
Y al consultar ese registro, en otro campo de Fecha salir la misma fecha pero con el siguiente Mes: 22/08/2007

buen fin de semana, o lo que queda de él.  :hola:

F_Tanori:
Con esto puedes sacar un mes...


--- Código: Text ---fecha=CDate(Fecha)+31   y creo que te daría tal vez con una modificación para los diferentes meses :rolleyes:

o si lo único que quieres es aumentar el mes, puede tener soluciones múltiples


aquí un ejemplo:


--- Código: Text ---Private Function SumarMes(fecha As Date)Dim f As Variant    On Error GoTo xError    f = Split(Format(fecha, "dd/mm/yyyy"), "/")        If f(1) < 12 Then        f(1) = f(1) + 1    Else        f(1) = 1        f(2) = f(2) + 1    End If    SumarMes = DateValue(f(0) & "/" & f(1) & "/" & f(2))    Exit Function    xError:    SumarMes = #1/1/1900#End Function 


--- Código: Text ---Private Sub Command1_Click()    Me.Text1 = SumarMes(DateValue(Me.Text1))End Sub 
devuelve 01/01/1900 si ocurre un error y/o no es una fecha valida

Creo que se pueden hallar muchas mas soluciones....


Saludos

UserCode:
Si si si sirve, si sirve, si sirve  :jumpie:
gracias man, ponlo en mi cuenta si :mellow:

Ahora el Prestamista si podra saber cuando les cobra a sus victinas, perdon clientes :good:

cpmario:
Esto también te puede servir:


--- Código: Text ---    Text1.Text = DateAdd("m", 1, "22/07/2007")   :comp:

UserCode:
Ese si es un resumen excelente  B) si señor, gracias cp, usare ese pero dejare tambien la function del compadre tanori, no me gusta desechar nada porque eso o parte de su estructura puede ayudar para alguna otra cosa en algun momento.
:good:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente