Скачать: CL | DM;

объявление функции 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

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

---

← →
Плохиш ©   (2010-01-27 20:39) [7]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c