Мысли вслух…

Метка: Money

Lord Nikon, 17.05.2009 0:02:10: у меня нет денег.. и тебе стоит измениться

Пользователь Май.17.2009. Категория Weekdays

Сидел сегодня разбирался с алгоритмом Jaro-Winkler как постучался наш вчерашний студент… Ну ладно, в принципе я ему и не обещал, но все таки. Заодно Дельфи вспомню =)

Ниже идет лог диалога со «студентом»

немного отредактировал, убрал некоторые таймпасты.

show

Ну например меня зацепило 3 вещи:

  • >>чел у меня нет ИДЕ, … ;
  • >>ты думаешь что я идиот, я думаю что ты;
  • >>и тебе стоит измениться;

Значит нормально, чувак пишет курсач, при этом у него даж компилятора нет. Помогаешь, а он думает что я идиот. Носом меня тыкает…

Ну уж извини, после такого какой нафиг код? Иди сам разбирайся…

А вот и вся его курсовая:

procedure TForm1.Button1Click(Sender: TObject);
var
d, h, m, s: Integer;
d1, d2: TDateTime;
begin
d1:=StrToDateTime(Edit1.Text);
d2:=StrToDateTime(Edit2.Text);
d:=DaysBetween(d1, d2);
h:=HoursBetween(d1, d2);
m:=MinutesBetween(d1, d2);
s:=SecondsBetween(d1, d2);
ShowMessage(Format('Days: %d'#13'Hours: %d'#13'Minutes: %d'#13'Seconds: %d', [d, h, m, s]));
end;

p.s. тут еще 2 переменные + функции добавить: MonthsBetween, YearsBetween
p.p.s не хочешь срать, не мучай жопу

2 комментария :, дальше...

Поиск

Список друзей