Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-05-2003
Avatar de cmgenny
cmgenny cmgenny is offline
Miembro
 
Registrado: may 2003
Ubicación: Santo Domingo
Posts: 71
Poder: 21
cmgenny Va por buen camino
Post Sintaxis de esta Función

Holas

Yo quiero utilizar esta función de Delphi

DateTimeToTimeStamp

pero no conosco bien la sintaxis y la he puesto hasta de cabeza y no me funciona. Esta función debuelve el dia la hora los segundos transcurridos en el año, pero a mi solo me interesa el dia.

gracias por su ayuda bey bye.
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan.
Sr. Genny Cris Morillo Santos
Estudiante ING. Sistemas
Santo Domingo D.N.
Responder Con Cita
  #2  
Antiguo 10-05-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
No entiendo lo que preguntas. DateTimeToTimeStamp no devuelve dia, horas, minutos, etc, como dices, sino que simplemente convierte un TDateTime en un TTimeStamp.

TDateTime almacena fecha y hora en un Double (la parte entera es la fecha y la parte fraccionaria es la hora)

Un TTimeStamp es un record :

Código:
  TTimeStamp = record
    Time: Integer;
    Date: Integer;
  end;
Posiblemente lo que buscas sea la función DayOf a la que le pasas un TDateTime y te devuelve el día del mes a que corresponde la fecha.

// Saludos
Responder Con Cita
  #3  
Antiguo 10-05-2003
Avatar de madman
madman madman is offline
Miembro
 
Registrado: may 2003
Ubicación: Nayarit, México
Posts: 242
Poder: 21
madman Va por buen camino
Deberias buscar primero en los ficheros de ayuda, muchas veces te saca de apuros.

Algunos errores son causados por cuenta propia.
__________________
Guía de Estilo.
Responder Con Cita
  #4  
Antiguo 10-05-2003
Avatar de cmgenny
cmgenny cmgenny is offline
Miembro
 
Registrado: may 2003
Ubicación: Santo Domingo
Posts: 71
Poder: 21
cmgenny Va por buen camino
Holas

dejame explicarme mejor, me refiero en realidad al truco ' Fecha Juliana' de Trucomania. En este truco hay una funcion que devuelce el dia del año en curso es decir que hoy es el dia 129 de los 365 que tiene el año.

pero mas abajo en este truco escribe un joven que existe una funcion en delphi la que hace esto sin una linea de codigo y la funcion que el nombra es 'DateTimeToJulianDate' pero en delphi no la encontre en la ayuda la que encontre es la que les acabo de mencionar en el aterior mensaje.

Bueno en todo caso si existe una manera mas facil como dice el joven puede alguien decirme como usarla.

Gracias a todos por molestarce en contestarme bey bey
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan.
Sr. Genny Cris Morillo Santos
Estudiante ING. Sistemas
Santo Domingo D.N.
Responder Con Cita
  #5  
Antiguo 10-05-2003
andres1569 andres1569 is offline
Miembro
 
Registrado: may 2003
Posts: 908
Poder: 21
andres1569 Va por buen camino
Hola:

Lo que dice madman es que mirando la ayuda de Delphi, está bastante bien explicado; DateTimeToTimeStamp convierte una fecha a un tipo TTimeStamp, que es un registro donde la parte Date indica los días desde el 1 de enero del año 1, y la parte Time los milisegundos desde las 12 de medianoche.

No sé si existe la función que buscas pero esta te puede servir:

function DayOfYear (ADate: TDateTime) : Word;
var
d, m, y : Word;
begin
DecodeDate (ADate, y, m, d);
result := DateTimeToTimeStamp(ADate).Date -
DateTimeToTimeStamp(EncodeDate(y - 1, 12, 31)).Date));
end;

Hallamos la resta de días entre la fecha de hoy y el último día del año pasado

Hasta luego
Responder Con Cita
  #6  
Antiguo 11-05-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Posteado originalmente por cmgenny
...pero mas abajo en este truco escribe un joven que existe una funcion en delphi la que hace esto sin una linea de codigo y la funcion que el nombra es 'DateTimeToJulianDate' pero en delphi no la encontre en la ayuda la que encontre es la que les acabo de mencionar en el aterior mensaje.
¿Qué versión de Delphi tienes?

La función que menciona el joven sí existe, al menos en Delphi 7, pero casi estoy seguro de que también en Delphi 6. Sin embargo no creo que sea la que buscas ya que te devuelve el número de días que han pasado desde el primero de enero del año 4713 antes de cristo! y adaptarla no será tan fácil ya quue deberas tomar en cuenta toodos los años bisiestos

La función que te puede servir es DayOfTheYear. Si en la versión que tienes de Delphi no viene entonces te servirá la que te pproporciona Andrés.

// Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
que programa esta ejecutando un determinado archivo slat API de Windows 1 11-04-2005 18:11:23
autoejecutar una funcion! kye_z Varios 2 06-04-2005 14:08:30
Saber windows esta copiando o elimniando archivo mauriciofox API de Windows 0 25-02-2005 06:21:14
Pasar como parametro el where en una funcion cso2000 MS SQL Server 2 15-02-2005 03:49:47
Rango de fecha (Ojo. esta ves) JODELSA Varios 2 24-05-2003 06:04:52


La franja horaria es GMT +2. Ahora son las 00:36:44.


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