Discussion :

[Andry]

Bonjour à tous,

J'utilise Firebird 1.5.
J'avais besoin d'une fonction qui me retourne le jour ouvrable entre une date donnée et un nombre de jour donné.
Pour ça, j'ai crée un dll sous Delphi et j'ai importer la fonction en question.
Mon problème c'est que si je teste la fonction sous Firebird avec IbExpert, la valeur de retour n'est pas bon alors que si j'appelle cette fonction sous Delphi, elle me renvoit le bon date.
Alors je me demande si c'est un problème de type Date de Delphi avec le type Date de Firebird.

Merci

[hgourvest]

Ca dépend peut être du dialect, pour le dialect 1 le type DATE = date + heure soit le TIMESTAMP en dialect 3. En dialect 3 le type DATE = juste la date.

voila un bout de code pour transformer une date delphi en TIMESTAMP:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
const
  DateOffset = 15018;
  TimeCoeff = 864000000;
 
  procedure EncodeTimeStamp(const DateTime: TDateTime; v: PISCTimeStamp);
  begin
    v.timestamp_date := Round(int(DateTime)) + DateOffset;
    v.timestamp_time := ISC_TIME(Round(Frac(DateTime) * TimeCoeff));
  end;

henri

[Andry]

Je suis en dialecte 3 et ce que je veux c'est juste la Date sans l'heure. Ce qui m'intrige un peu c'est que le type TDate est declaré en TDateTime sous Delphi.

Donc comment faire pour avoir le type Date en dialecte 3 sous Delphi.

Merci

[hgourvest]

dans ce cas la c'est un type ISC_DATE(Integer) que tu vas échanger avec interbase dans ton UDF. la transformation est assez simple:
ISC_DATE -> TDateTime = date - DateOffset
TDateTime -> ISC_DATE = int(date) + DateOffset
tel que DateOffset = 15018

Henri