Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   problema con combobox y duda con fechas (https://www.clubdelphi.com/foros/showthread.php?t=69310)

alejitoo 09-08-2010 20:39:28

problema con combobox y duda con fechas
 
1. buenas tengo un problema tengo un combobox el cual llene con diferentes tipos de impresoras mi problema es que al momento de el programa estar en ejecucion y yo seleccionar una opcion de las que se encuentran en el combobox al guardar no se me almacena en la base de datos. mi base de datos es paradox alguien me podria ayudar con un codigo que resuelva mi duda,



2. otra duda que tengo es que al yo tener 1 fecha y compararla con otra fecha como podria hacer para que al compararse me dijera el numero de meses y dias que hay entre una y la otra fecha ejemplo 13/05/05 y 16/05/05 que eso se igual a 3 dias, o 13/05/05/ y 15/06/05 que esto sea igual a 1 mes y 2 dias algo asi quisiera que me dijera se puede realizar y como..??

AzidRain 09-08-2010 20:44:55

Para el caso de las fechas consulta la ayuda de Delphi en la seccion "Date Functions" hay varias que hacen cálculos con fechas, pero tendrías que ver cual combinación te acomoda más.

También puedes utilizar esta rutina que hace diferencia entre dos fechas por varios métodos, no está documentada así que estúdiala un poco y yo creo que te sirve

Por cierto, la rutina que te recomendé me salió al hacer esta simple consulta en google como primer opción.

Caro 09-08-2010 23:48:10

Hola Alejitoo, para tu primera pregunta tendrías que mostrarnos tu codigo y así ver porque no esta guardando.

Para las fechas puedes utilizar las funciones de la unit DateUtils como te indica AzidRain y hacer algo como esto:

Código Delphi [-]
var
 Anyos, Meses, Dias : Integer;
.........................................
begin
 .................................
 Anyos := YearsBetween(FechaInicio, FechaFin);
 if Anyos > 0 then
  FechaInicio := IncYear(FechaInicio, Anyos);

 Meses := MonthsBetween(FechaInicio, FechaFin);
 if Meses > 0 then
  FechaInicio := IncMonth(FechaInicio, Meses);
 
 Dias := DaysBetween(FechaInicio, FechaFin);
 
 showmessage('Años :'+IntToStr(Anyos)+' Meses:'+IntToStr(Meses)+' Dias:'+IntToStr(Dias));

Otra cosita, si son dos preguntas diferentes como en este caso, sería mejor que lo pusieras en dos hilos diferentes.

Saluditos

ContraVeneno 11-08-2010 00:42:49

tal vez este artículo te de una idea de como seleccionar impresoras:
Browse for computers, folders, files and printers.


La franja horaria es GMT +2. Ahora son las 11:06:20.

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