объявление функции DateOf

← →
helluvaname (2010-01-27 13:50) [0]

Здравствуйте!
Как объявить функцию DateOf?

declaration function DateOf(Date: TDateTime) : TDateTime description Returns only the Date portion of the TDateTime value, by setting Time part to 0. DateOf sets the time portion to 0, which means midnight. example var ThisMoment, ThisDay : TDateTime; ThisMoment := Now; // -> 06/27/2003 10:29:16:138 ThisDay := DateOf(ThisMoment); //This Day:= 06/27/2003 00:00:00:000

я пробую так:

unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, ComCtrls; type TForm3 = class(TForm) ... TDateOf = function(Date: TDateTime) : TDateTime; stdcall; var Form3: TForm3; DateOf: TDateOf; implementation ...
и не работает)

← →
Ega23 © (2010-01-27 13:53) [1]

stdcall убрать. Либо там дописать.

← →
helluvaname (2010-01-27 14:01) [2]

если stdcall убрать тоже не работает
access violation at adress 00000000. read of adress 00000000

← →
helluvaname (2010-01-27 14:15) [3]

если присваивать вот так

DateTimePicker1.DateTime:=Date;

то DateTimePicker.Time будет 00:00:00

а DateOf так и не удалось подключить

← →
Anatoly Podgoretsky © (2010-01-27 14:15) [4]

> helluvaname (27.01.2010 13:50:00) [0]

Зачем это объявлять?, когда есть TRUNC уже объявленое.

← →
Ega23 © (2010-01-27 14:46) [5]

Если тебе тупо дробную часть обнулить, то для этого Trunc есть.

← →
anonims (2010-01-27 18:27) [6]

uses Dateutil

если не ошибаюсь

> helluvaname (27.01.10 14:01) [2]
>
> если stdcall убрать тоже не работает
> access violation at adress 00000000. read of adress 00000000
>

Зачем оно тебе это программирование? Тебе всё-равно не интересно, как используются библиотечные функции в используемом тобой средстве программирования.

объявление функции DateOf Найти похожие ветки