• Viernes 8 de Noviembre de 2024, 14:04

Autor Tema:  Guardar Fecha Y Visualizarla Cambiando El Mes  (Leído 1781 veces)

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Guardar Fecha Y Visualizarla Cambiando El Mes
« en: Lunes 23 de Julio de 2007, 00:08 »
0
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:
Si esto es Leído por accidente, induzca al vomito

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« Respuesta #1 en: Lunes 23 de Julio de 2007, 00:38 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« Respuesta #2 en: Lunes 23 de Julio de 2007, 00:57 »
0
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:
Si esto es Leído por accidente, induzca al vomito

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« Respuesta #3 en: Lunes 23 de Julio de 2007, 05:26 »
0
Esto también te puede servir:

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

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« Respuesta #4 en: Lunes 23 de Julio de 2007, 21:18 »
0
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:
Si esto es Leído por accidente, induzca al vomito

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« Respuesta #5 en: Martes 24 de Julio de 2007, 03:27 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================