ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / YearSpan
9 сообщений из 9, страница 1 из 1
YearSpan
    #32369157
scoundrel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
scoundrel
Гость
как правильно написать расчет!? есть атрибут с датой рождения человека, надо посчитать возраст!?
...
Рейтинг: 0 / 0
06.01.2004, 10:54
| Ответить | Цитировать | Написать  
YearSpan
    #32369165
Rostyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostyk
Участник
Здесь не ответили ? :)
...
Рейтинг: 0 / 0
06.01.2004, 10:57
| Ответить | Цитировать | Написать  
YearSpan
    #32369171
scoundrel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
scoundrel
Гость
..нет!!!! Как это написать!!? :))
...
Рейтинг: 0 / 0
06.01.2004, 11:00
| Ответить | Цитировать | Написать  
YearSpan
    #32369182
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
что значит "есть атрибут с датой рождения"
какого типа переменная содержащая дату рождения??
TDateTime, string в каком либо формате или еще что-либо ?
...
Рейтинг: 0 / 0
06.01.2004, 11:05
| Ответить | Цитировать | Написать  
YearSpan
    #32369186
scoundrel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
scoundrel
Гость
Тип: Data!
...
Рейтинг: 0 / 0
06.01.2004, 11:07
| Ответить | Цитировать | Написать  
YearSpan
    #32369191
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
Код: 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:10
| Ответить | Цитировать | Написать  
YearSpan
    #32369196
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
пардон с кодировкой
Код: 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:11
| Ответить | Цитировать | Написать  
YearSpan
    #32369215
scoundrel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
scoundrel
Гость
..мне нужно чтоб в таблице каждому челу расчитывалось!!!
...
Рейтинг: 0 / 0
06.01.2004, 11:22
| Ответить | Цитировать | Написать  
YearSpan
    #32369239
nomorenames
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nomorenames
Участник
Слухай! Ты находишься в форуме Delphi, в Дельфи нет таблиц, есть только их отображение, они есть где-то в б/д, а может еще где, ты не рассказал об этом.
Следующее, вопрос твой звучал иначе: авторесть дата рождения человека (дд.мм.гггг) создал атрибут "Возраст" что нужно прописать чтобы высветился возраст человека..?
- тебе ответили, как. Если что-то еще нужно, задай вопрос правильно, если хочешь, что бы за тебя написали, помоги материально
По-моему разжевано уже всеми возможными способами, а ты опять за свое автор..мне нужно чтоб в таблице каждому челу расчитывалось!!!Может ты не в Дельфи программируешь?
...
Рейтинг: 0 / 0
06.01.2004, 11:38
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / YearSpan
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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