Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-11-2004
pacogarcia pacogarcia is offline
Registrado
 
Registrado: nov 2004
Posts: 5
Poder: 0
pacogarcia Va por buen camino
Saludos.


La funcion "date" devuelve la fecha actual.

Yo utilizo esta funcion para extraer la fecha:

Código Delphi [-]
function ExtraerFecha(fechayhora :TDateTime) : TDateTime;
var year,Month,Day : word;
begin
    DecodeDate( fechayhora, Year, Month, Day);
    result := EncodeDate(Year, Month, Day);
end;
Espero que te sirva.

Un saludo.
Responder Con Cita
  #2  
Antiguo 26-11-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 23
defcon1_es Va por buen camino
Cita:
Empezado por pacogarcia
La funcion "date" devuelve la fecha actual.
Tienes toda la razón del mundo... eso me pasa por ir deprisa.

Quería decir la función DateOf()

Código Delphi [-]
 
DataSet.Locate('FECHA', DateOf(MonthCalendar.Date), []);

Salu2.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita
  #3  
Antiguo 27-11-2004
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Poder: 23
RONPABLO Va por buen camino
Muchas gracias

Ok gracias por sus respuestas si me dio con el "dateof"
Responder Con Cita
  #4  
Antiguo 27-11-2004
Mick Mick is offline
Miembro
 
Registrado: may 2003
Posts: 405
Poder: 24
Mick Va por buen camino
Cita:
Empezado por pacogarcia
Saludos.
Yo utilizo esta funcion para extraer la fecha:

Código Delphi [-]
function ExtraerFecha(fechayhora :TDateTime) : TDateTime;
var year,Month,Day : word;
begin
    DecodeDate( fechayhora, Year, Month, Day);
    result := EncodeDate(Year, Month, Day);
end;
Yo sustituiria esa funcion por:

Fecha:= Int(FechaYHora)

que es bastante mas rapido que decodificar y codificar un Datetime.

Saludos
Responder Con Cita
  #5  
Antiguo 29-11-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 23
defcon1_es Va por buen camino
Hola, mira lo que hace la función DateOf
Código Delphi [-]
function DateOf(const AValue: TDateTime): TDateTime;
begin
  Result := Trunc(AValue);
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:27:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi