Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / YearSpan / 9 сообщений из 9, страница 1 из 1
06.01.2004, 10:54
    #32369157
scoundrel
scoundrel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
как правильно написать расчет!? есть атрибут с датой рождения человека, надо посчитать возраст!?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 10:57
    #32369165
Rostyk
Rostyk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
Здесь не ответили ? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:00
    #32369171
scoundrel
scoundrel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
..нет!!!! Как это написать!!? :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:05
    #32369182
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
что значит "есть атрибут с датой рождения"
какого типа переменная содержащая дату рождения??
TDateTime, string в каком либо формате или еще что-либо ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:07
    #32369186
scoundrel
scoundrel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
Тип: Data!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:10
    #32369191
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils;  //  237 ; 229 ;  231 ; 224 ; 225 ; 243 ; 228 ; 252 ;  226 ; 234 ; 235 ; 254 ; 247 ; 232 ; 242 ; 252 ;  226 ; USES DateUtils

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   DateBirthday : TDateTime;
begin
   DateBirthday := EncodeDate( 1980 , 2 , 17 );  //  227 ; 238 ; 228 ;  236 ; 229 ; 241 ; 255 ; 246 ;  228 ; 229 ; 237 ; 252 ;  240 ; 238 ; 230 ; 228 ; 229 ; 237 ; 252 ; 255 ;
   Caption := IntToStr(YearsBetween(Now,DateBirthday));  //  226 ; 238 ; 231 ; 240 ; 224 ; 241 ; 242 ;  226 ;  227 ; 238 ; 228 ; 224 ; 245 ;
end;

end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:11
    #32369196
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
пардон с кодировкой
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils;  // не забудь включить в USES DateUtils

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   DateBirthday : TDateTime;
begin
   DateBirthday := EncodeDate( 1980 , 2 , 17 );  // год месяц день рождения
   Caption := IntToStr(YearsBetween(Now,DateBirthday));  // возраст в годах
end;

end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:22
    #32369215
scoundrel
scoundrel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
..мне нужно чтоб в таблице каждому челу расчитывалось!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 11:38
    #32369239
nomorenames
nomorenames
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YearSpan
Слухай! Ты находишься в форуме Delphi, в Дельфи нет таблиц, есть только их отображение, они есть где-то в б/д, а может еще где, ты не рассказал об этом.
Следующее, вопрос твой звучал иначе: авторесть дата рождения человека (дд.мм.гггг) создал атрибут "Возраст" что нужно прописать чтобы высветился возраст человека..?
- тебе ответили, как. Если что-то еще нужно, задай вопрос правильно, если хочешь, что бы за тебя написали, помоги материально
По-моему разжевано уже всеми возможными способами, а ты опять за свое автор..мне нужно чтоб в таблице каждому челу расчитывалось!!!Может ты не в Дельфи программируешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / YearSpan / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]