| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

helluvaname ©   (2010-01-27 13:50:00) 

Здравствуйте!
Как объявить функцию 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
...

и не работает)

---

Плохиш   (2010-01-27 20:39:00) [1]

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

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

---

anonims   (2010-01-27 18:27:00) [2]

uses Dateutil

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

---

Ega23   (2010-01-27 14:46:00) [3]

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

---

helluvaname   (2010-01-27 14:15:00) [4]

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

DateTimePicker1.DateTime:=Date;

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

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

---

Anatoly Podgoretsky   (2010-01-27 14:15:00) [5]

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

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

---

helluvaname   (2010-01-27 14:01:00) [6]

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

---

Ega23   (2010-01-27 13:53:00) [7]

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

---

Наверх