Aplicaciones/Fragmentos de Código :: Ejemplo Para Usar DateDiff (diferencias Entre Dos Fechas)

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Sabado, 27 Abril 2024, 14:21 • Todas las horas son UTC + 1 Hora

Ejemplo Para Usar DateDiff (diferencias Entre Dos Fechas)

Página 1 de 1

Ejemplo Para Usar DateDiff (diferencias Entre Dos Fechas)

Autor

Mensaje

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Ejemplo Para Usar DateDiff (diferencias Entre Dos Fechas)

Os dejo aqui un simple ejemplo de como calcular la diferencia entre dos fechas (en mi caso, son dos horas distintas), y ver si esa diferencia supera los 30 minutos:

Código: [Descargar] [Ocultar] [Seleccionar]

' gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  Dim diferencia As Integer
  Dim hora As Date

  hora = Time(ValueBoxHoras.value, ValueBoxMinutos.value, ValueBoxSegundos.value)

  diferencia = DateDiff(Time(Now), hora, gb.Minute)

  If diferencia > 30 Then
    Message.Info("Superado los 30 minutos de diferencia...")
  Else
    Message.Info("No ha superado los 30 minutos de la hora actual " & Str$(Time(Now)))
  Endif

End

DiferenciaTiempo-0.0.1.tar.gz
Descripción:	Calcular la diferencia entre la hora actual y una hora introducida por el usuario	Descargar
Nombre del archivo:	DiferenciaTiempo-0.0.1.tar.gz
Tamaño:	4.86 KB
Descargado:	27 veces

DiferenciaTiempo-0.0.1.tar.gz
Descripción:	Calcular la diferencia entre la hora actual y una hora introducida por el usuario	Descargar
Nombre del archivo:	DiferenciaTiempo-0.0.1.tar.gz
Tamaño:	4.86 KB
Descargado:	27 veces

DiferenciaTiempo-0.0.1.tar.gz
Descripción:	Calcular la diferencia entre la hora actual y una hora introducida por el usuario	Descargar
Nombre del archivo:	DiferenciaTiempo-0.0.1.tar.gz
Tamaño:	4.86 KB
Descargado:	27 veces

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#1 Miercoles, 20 Febrero 2013, 20:21

v3ctor

Analista Programador

Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación:

Uruguay

Re: Ejemplo Para Usar DateDiff (diferencias Entre Dos Fechas)

dejo otro ejemplo:

Código: [Descargar] [Ocultar] [Seleccionar]

' gambas class file

'by postapase
' aqui les dejo un pequeño ejemplo de como usar DateDiff,
' en el programa que estoy haciendo llamado Taller 2015 se maneja una base de datos
' de reparaciones de equipos informaticos, una fecha de ingreso y otra de entrega del equipo
' y debemos no permitir que el usuario sin querer ponga una fecha incorrecta en la fecha de entrega del equipo
' la fecha de entrega debe ser igual o mayor que la fecha de ingreso pero nunca anterior a la fecha de ingreso.
'aqui el ejemplo:

Public Sub Form_Open()
    Me.Center 'centramos el formulario
    DateBox1Ingreso.Value = Date 'asignamos la fecha actual de sistema a la propiedad
    'value de Control DateBox1Ingreso
End

Public Sub DateBox2Entrega_Change()
    If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then 'compara la fecha de ingreso
    ' que esta contenida en la propiedad value del DateBox1Ingreso con DateBox2Entrega.Value, la constante gb.day indica que datediff
    '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
    ' 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
    'por tanto se oculta el boton de error y se ingresan los datos
        btnError.Visible = True 'si la diferencia entre fechas en un numero negativo mostrara el boton
    Else
        btnError.Visible = False 'si la diferencia es 0 o un numero positivo se ocultara el boton
    Endif
End

Public Sub btnVerificar_Click()
    If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then
           Message.Warning("La fecha de entrega no puede ser anterior a la fecha de ingreso!!")
    Endif
End

DateDiff-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	DateDiff-0.0.1.tar.gz
Tamaño:	4.71 KB
Descargado:	33 veces

DateDiff-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	DateDiff-0.0.1.tar.gz
Tamaño:	4.71 KB
Descargado:	33 veces

DateDiff-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	DateDiff-0.0.1.tar.gz
Tamaño:	4.71 KB
Descargado:	33 veces

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible

Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/

#2 Jueves, 19 Marzo 2015, 18:20

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Ejemplo De Como Usar Break	v3ctor	Aplicaciones/Fragmentos de Código	2	Martes, 02 Septiembre 2014, 19:50 jsbsan
Cómo Poder Hacer Cálculo Que Indique Añ...	kike1965	General	17	Lunes, 09 Noviembre 2015, 13:34 kike1965
Ejemplo De Como Usar DFree En Gambas	v3ctor	General	1	Martes, 02 Febrero 2016, 19:00 jsbsan
Ejemplo De Drag Drop Entre Dos Listbox	Shell	General	0	Viernes, 06 Octobre 2017, 21:28 Shell

Página 1 de 1

Fecha y hora actual: Sabado, 27 Abril 2024, 14:21 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 5.0854s (PHP: -98% SQL: 198%)
Consultas SQL: 46 - Debug off - GZIP Activado

Design by Mighty Gorgon