operaciones con fechas

[[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)

[[Delphius]]

Empezado por Gallosuarez

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

Disculpa que me entrometa pero me preguntaba si es posible que nos comentases más sobre esto... ¿porqué evitarse emplear UDFs?

Saludos,

[GustavoCruz]

hola amigos, estaba pensando en hacer algo como los que plantea Gallosuarez, y me parece que para lo que necesito sólo debo utilizar la clausula EXTRACT, así que si hay un modo de "descomponer" la fecha, también debe haber un modo de "recomponer" fecha.

Ahora la cuestión es cuál es esa función, en delphi yo hago esto:

Código Delphi [-]
strtodate('30/'+formatdatetime('mm/yyyy'+fecha))

Nuevamente un millón de gracias


Gustavo Cruz

[Gallosuarez]

Delphius:

Respondiendo a tu pregunta (grosso-modo), la razón por la cual evito utilizar UDF's son basicamento dos:

1. Tengo un desarrollo de un sistema para escuelas, que solo lo instalaba en computadoras con Sistema Operativo Windows. Cuando tuve la necesidad de hacerlo en un sistema operativo Linux, hubo una funcion externa que solo funcionaba en Windows. Asi que mi sistema me enviaba un error muy extraño, despues de varios días de intensas pruebas (y dolores de cabeza), me di cuenta que lo que no estaba funcionando bien era una UDF's. (utilizando funciones internas esto no sucede jamás, y tu base de datos la puedes poner a funcionar en el S.O que tu decidas).

2. Estoy buscando la fuente (hace ya un rato que leí el documento), pero basicamente era uno de esos gurús en bases de datos que tenia problemas porque una UDF's le pegaba al desempeño del servidor (esto pasó cuando Borland no liberaba aun la licencia de Interbase). Este Sr. daba todo la explicación técnica (que ya no recuerdo bien como iba la cosa), en fin, a lo mejor algunos foristas avezados en estas lides nos puedan hechar mas luz sobre el asunto (en lo que yo encuentro el documento, si es que lo encuentro, claro está).

Por otro lado, respondiendo a Gustavo creo que lo que quiere ahora es lo siguiente:

Código SQL [-]

SELECT CAST('12/13/09' AS DATE)
FROM RDB$DATABASE

SELECT CAST('12/13/09 13:05:' AS TIMESTAMP)
FROM RDB$DATABASE

La "fecha cadena" debe de estar en el siguiente formato: 'mm/dd/yy'

Saludos,

[GustavoCruz]

Amigo Gallosuarez, eso es exactamente lo que necesito...


Gracias por sus aportes...

Gustavo Cruz