operaciones con fechas

[GustavoCruz]

hola nuevamente...

en delphi hay unas funciones que nos permiten hacer operaciones con las fechas, por ejemplo incmoth o incweek, etc. y me gustaría saber si exite en firebird alguna función que se asemeje a éstas.

nuevamente mil gracias


Gustavo Cruz

[[Delphius]]

Hola GustavoCruz,
Desde Firebird 1.0 en Windows y 1.5 en Linux, existen las UDFs que buscas:

Código SQL [-]
AddDay(atimestamp, number)
AddHour(atimestamp, number)
AddMilliSecond(atimestamp, number)
AddMinute(atimestamp, number)
AddMonth(atimestamp, number)
AddSecond(atimestamp, number)
AddWeek(atimestamp, number)
AddYear(atimestamp, number)

Revisa el documento "Firebird Languaje Reference Update". Allí están documentadas. Si empleas Firebird 2.1 sería oportuno que revises el Release Notes para ver si algo ha cambiado, o si se ha añadido más.

Si deseas restar, en number debes pasar un valor negativo.

Saludos,

[GustavoCruz]

Gracias delphius.

Ahora tengo otro interrogante, me gustaría saber cómo puedo hacer para que al momento de cambiar de mes siempre me quede en el último día del mismo, por ejemplo

31/01/2009
28/02/2009
31/03/2009
30/04/2009

Gracias nuevamente

[[Delphius]]

Ummm.... ¿desde Firebird? La verdad es que allí ya me mataste Tendría que pensarlo, desconozco si hay alguna UDF que regrese la cantidad de días del mes...

Sería bueno que indicaras que versión de Firebird empleas. Al menos revisando la documentación que yo tengo de la 1.5 (es la que uso) no encuentro algo. Seguramente alguien más ilustrado nos puede iluminar, ¿Jhonny estás allí?

Desde Delphi sería otra cosa, creo que en la unidad DateUtils hay ya una función que calcula lo que buscas... si no equivoco es DaysInAMonth.

De última, la creas. Te podrías basar en la función de Delphi.

Saludos,

[[Delphius]]

Ahora que lo pienso... ¿y si en vez de sumarle n meses, le sumas n + 1 y le restas los m días que tengas?

Es decir que si por ejemplo, que hoy es 04/04 y deseamos que el plazo sea a Julio (31/07) en vez de sumarle n = 3, le sumamos n = 3 + 1 = 4:

Temporalmente nos queda: 04/08.

Le restamos los 4 días, y... finalmente tenemos 31/07.

En teoría funciona. No lo he probado...

EDITO:

Lo he probado, por ejemplo algo así:

Código SQL [-]
select cast(AddDay(AddMonth(CURRENT_DATE,4),-4) as TIMESTAMP) FROM TABLA1

Saludos,

[Gallosuarez]

Gustavo:

Cuando empecé a programar en Firebird tuve la necesidad de hacer una funcion que si le mandada cualquier fecha dentro de los primeros quince dias del mes, esta me regresara todos los dias de la primera quincena de dicho mes. De la misma manera, si la fecha estaba dentro de la segunda quincena, me regrasaba todos los dias de la segunda quincena.
Asi fue como la hice:

Código SQL [-]
CREATE OR ALTER PROCEDURE DAYSOFMONTH(
    D DATE) /* Date */
RETURNS (
    DOM DATE) /* Day of Month */
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE LD INTEGER; /* Last Day */
BEGIN
  I = 1;
  LD = EXTRACT(DAY FROM (D - EXTRACT(DAY FROM D) + 32 - EXTRACT(DAY FROM D - EXTRACT(DAY FROM D) + 32)));
  IF (EXTRACT(DAY FROM D) > 15) THEN
    I = 16;
  ELSE
    LD = 15;
  DOM = D - EXTRACT(DAY FROM D) + I;
  WHILE (I <= LD) DO
  BEGIN
    SUSPEND;
    DOM = DOM + 1;
    I = I + 1;
  END
END

No dejes de contarnos si te funcionó para lo que tú querias.

Saludos.

Gerardo Suárez

P.D. Por cierto, cada que me es posible evito los funciones externas (UDF's)