Hi,

ich habe hier einen Monat und das Jahr (Tag interessiert nicht). Die DB erwartet aber ein Date. Wie baue ich daraus jetzt ein Date ?

Mit EncodeDate:

markieren

Delphi-Quellcode:

var
   datum: TDateTime;
   jahr, monat : integer;
begin
   jahr := ...
   Monat := ...
   datum := EncodeDate(jahr, monat, 1),
end;

Man kann aus einem Monat und einem Jahr nun mal kein Datum erzeugen. Dir fehlt der Tag. Irgendeiner. Ich nehm den ersten.
Dann so (kenn kein Firebird, aber der kann ja wohl convert) in MSSQL:

markieren

Delphi-Quellcode:

declare @month int, @year int
set @month = 10
set @year = 2005

select convert (datetime, convert (varchar(2), @month)+'/01/'+convert (varchar(4), @year),101)

Convert dürfte ANSI-SQL sein, der dritte Parameter (101) sagt MSSQL, das das Datum in der From 'mm/dd/yyyy' formartiert ist. Irgendsowas gibt es doch auch bei FB-SQL. Und, konvertiert der nicht von alleine, sobald Du versuchst in ein Date-Feld einen String reinzuschreiben, der nach Datum riecht?

Thx, aber ich bräuchte die reinen SQL-Befehle. Ah, roter Kasten schlägt zu. Convert ? Müßte es wohl sein.

Sorry, Convert scheint es nicht zu sein. Zumindest finde ich da nix drüber. Vielleicht etwas genauer : brauche praktisch das Gegenstück zu EXTRACT DAY FROM DATEFELD Ich habe also Tag (halt 1) und Monat und Jahr und das soll ein DATE werden.

Hier ist eine interessante Seite :

http://firebird.sourceforge.net/inde...id=ostenried_1

Die ist echt Top und noch von Landsmann. Hehe, da sind sogar die "Heiligen Drei Koenige" drin ! Ist wohl ein Bayer.

Jetzt ist aber folgende Frage aufgetaucht :

zusammenfalten · markieren

SQL-Code:

CREATE PROCEDURE PROC_ENCODEDATE (
    AYEAR INTEGER,
    AMONTH INTEGER,
    ADAY INTEGER)
RETURNS (
    RESULT DATE)
AS
BEGIN
   Result = cast( ADay || '.' || AMonth || '.' || AYear as DATE);
   suspend;
END
^

Das funktioniert auch, aber das hier nicht : CAST ('20.08.2005' AS DATE); Was ist daran falsch ?

Hallo Hansa,

Zitat von Hansa:

Das funktioniert auch, aber das hier nicht:
CAST ('20.08.2005' AS DATE); Was ist daran falsch ?

falsch ist vielleicht etwas zu hart - aber das interne Format entspricht dem Datum im DIN Format. Der Embedded SQL Guide schreibt zum Thema explicit conversion from character to date type:

Zitat:

Succeeds if the string is in the following format: YYYY-MM-DD

Bei mir funktioniert aber auch dein Datumsformat problemlos.

Grüße vom marabu

Falsch ist daran gar nichts. Der Fehler lag in dem aufrufenden Programm und da waren 2 Parameter vertauscht. 8) Geht echt verblüffend einfach mit Firebird, wenn man weiß wie.

Noch ein Fehler :

CAST ('12.08.2005' as DATE) das geht ja so, aber das hier :

CAST (:DATUM as DATE) geht nicht ! "Data type unknown." Der feste Wert nützt mich ja da nichts. 8) Was ist noch zu tun ?

Na, dann setze doch den Datentyp, bevor du das statement zur Ausführung bringst, Hansa.

query.Parameters.ParamByName('DATUM').DataType := ftString; Oder verzichte ganz auf den CAST im SQL und mache ihn gleich im Programm.

marabu

PS: Kennst du das alte Lied Ein Loch ist im Eimer...?