From postapase, 2 Years ago, written in GAMBAS.
This paste is a reply to from
- view diff
Embed
  1. ' Gambas class file
  2.  
  3. by postapase
  4. ' aqui les dejo un pequeño ejemplo de como usar DateDiff,
  5. ' en el programa que estoy haciendo llamado Taller 2015 se maneja una base de datos
  6. ' de reparaciones de equipos informaticos, una fecha de ingreso y otra de entrega del equipo
  7. ' y debemos no permitir que el usuario sin querer ponga una fecha incorrecta en la fecha de entrega del equipo
  8. ' la fecha de entrega debe ser igual o mayor que la fecha de ingreso pero nunca anterior a la fecha de ingreso.
  9. 'aqui el ejemplo:
  10.  
  11. Public Sub Form_Open()
  12.     Me.Center 'centramos el formulario
  13.     DateBox1Ingreso.Value = Date 'asignamos la fecha actual de sistema a la propiedad
  14.     'value de Control DateBox1Ingreso
  15.  
  16. Public Sub DateBox2Entrega_Change()
  17.     If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then 'compara la fecha de ingreso
  18.     ' que esta contenida en la propiedad value del DateBox1Ingreso con DateBox2Entrega.Value, la constante gb.day indica que datediff
  19.     'debe buscar diferencia de dias, si da un numero negativo la fecha de entrega es anterior que la fecha de ingreso lo cual no puede ser posible
  20.     ' y se activa el mensaje de error y el boton de aviso, si es positivo o igual a 0, quiere decir que la fecha de entrega es posterior a la de ingreso lo cual esta bien
  21.     'por tanto se oculta el boton de error y se ingresan los datos
  22.         btnError.Visible = True 'si la diferencia entre fechas en un numero negativo mostrara el boton
  23.     Else
  24.         btnError.Visible = False 'si la diferencia es 0 o un numero positivo se ocultara el boton
  25.     Endif
  26.  
  27. Public Sub btnVerificar_Click()
  28.     If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then
  29.            Message.Warning("La fecha de entrega no puede ser anterior a la fecha de ingreso!!")
  30.     Endif