Мысли вслух…

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 Comments for this entry

Leave a Reply

:bad: :beer: :biggrin: :blink: :blush: :bomb: :confused: :cool: :crazy: :cry: :dont_know: :eek: :evil: :dance: :heart: :idea: :joke: :kiss: :lol: :mad: :music: :rose: :sad: :smile: :surprised: :tongue: :yahoo: :wall: :wink:
 

Поиск

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