SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: UserCode en Lunes 23 de Julio de 2007, 00:08

Título: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: UserCode en Lunes 23 de Julio de 2007, 00:08
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:
Título: Re: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: F_Tanori en Lunes 23 de Julio de 2007, 00:38
Con esto puedes sacar un mes...

Código: Text
  1. fecha=CDate(Fecha)+31
  2.  
 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
  1. Private Function SumarMes(fecha As Date)
  2. Dim f As Variant
  3.     On Error GoTo xError
  4.     f = Split(Format(fecha, "dd/mm/yyyy"), "/")
  5.    
  6.     If f(1) < 12 Then
  7.         f(1) = f(1) + 1
  8.     Else
  9.         f(1) = 1
  10.         f(2) = f(2) + 1
  11.     End If
  12.     SumarMes = DateValue(f(0) & "/" & f(1) & "/" & f(2))
  13.     Exit Function
  14.    
  15. xError:
  16.     SumarMes = #1/1/1900#
  17. End Function
  18.  


Código: Text
  1. Private Sub Command1_Click()
  2.     Me.Text1 = SumarMes(DateValue(Me.Text1))
  3. End Sub
  4.  

devuelve 01/01/1900 si ocurre un error y/o no es una fecha valida

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


Saludos
Título: Re: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: UserCode en Lunes 23 de Julio de 2007, 00:57
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:
Título: Re: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: cpmario en Lunes 23 de Julio de 2007, 05:26
Esto también te puede servir:

Código: Text
  1.     Text1.Text = DateAdd("m", 1, "22/07/2007")
  2.  
  3.  
:comp:
Título: Re: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: UserCode en Lunes 23 de Julio de 2007, 21:18
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:
Título: Re: Guardar Fecha Y Visualizarla Cambiando El Mes
Publicado por: F_Tanori en Martes 24 de Julio de 2007, 03:27
ya ves hay muchas formas de resolver esto :P


es evidente que el codigo de cpmario es mas optimo, depende de como nos pasen por la mente las ideas :P visual basic tiene muchas funciones para el tratamiento de fechas  y horas



Saludos