Время прописью (из Java Script в Delphi)

[ZuBy]

Привет Всем!
Я тут недавно нашел java script, который показывает время прописью. Я в HTML = 0...
Но код был понятный и я его преобразовал в Delphi код...

Получилось не плохо, но есть один баг.
н/п: 13:50, то будет писать "Примерно через десять минут будет час",
а должно быть "Примерно через десять минут будет два часа"... как прибавить час в мой код...

В архиве есть и HTML, там показано как правильно...
Скачайте и помоги плиз (кому не трудно)...

[Juggernaut]

1. У тебя там они только на 12 часов (с полудня до полуночи)
2. Вообще корявенькие...

Я тебе их починил, теперь все нормально работает.

[ZuBy]

>> Juggernaut конечно это я бы и сделал сам спс, но Вы так и не исправили баг.

[ZuBy]

Самое главное исправить баг (кто сможет), а остальное я сам пределаю...
Потом выложу готовый проект и естественно исходник

[Serge_Bliznykov]

тестируйте код:

function TimeToStr(hh, mm: integer): string;
var
  h : string;
begin
  if mm>30 then hh := hh + 1;
  if hh = 24 then  h := 'полночь';
  if hh = 1 then  h := 'один час';
  if hh = 2 then  h := 'два часа';
  if hh = 3 then  h := 'три часа';
  if hh = 4 then  h := 'четыре часа';
  if hh = 5 then  h := 'пять часов';
  if hh = 6 then  h := 'шесть часов';
  if hh = 7 then  h := 'семь часов';
  if hh = 8 then  h := 'восемь часов';
  if hh = 9 then  h := 'девять часов';
  if hh = 10 then  h := 'десять часов';
  if hh = 11 then  h := 'одиннадцать часов';
  if hh = 12 then  h := 'двенадцать часов';
  if hh = 13 then  h := 'один час';
  if hh = 14 then  h := 'два часа';
  if hh = 15 then  h := 'три часа';
  if hh = 16 then  h := 'четыре часа';
  if hh = 17 then  h := 'пять часов';
  if hh = 18 then  h := 'шесть часов';
  if hh = 19 then  h := 'семь часов';
  if hh = 20 then  h := 'восемь часов';
  if hh = 21 then  h := 'девять часов';
  if hh = 22 then  h := 'десять часов';
  if hh = 23 then  h := 'одиннадцать часов';

  ////////
  if mm in [1..5] then result := 'пять минут назад было ';
  if mm in [6..10] then result := 'десять минут назад было ';
  if mm in [11..15] then result := 'пятнадцать минут назад было ';
  if mm in [16..20] then result := 'двадцать минут назад было ';
  if mm in [21..25] then result := 'двадцать пять минут назад было  ';
  if mm in [26..30] then result := 'полчаса назад было ';
  if mm in [31..35] then result := 'без двадцати пяти минут ';
  if mm in [36..40] then result := 'без двадцати минут  ';
  if mm in [41..45] then result := 'без пятнадцати минут ';
  if mm in [46..50] then result := 'через десять минут будет ';
  if mm in [51..59] then result := 'через пять минут будет  ';
  if mm in [0] then result := 'сейчас ровно ';
  result := result + ' ' + h;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hh, mm : integer;
begin
  hh := StrToInt(FormatDateTime('hh', now));
  mm := StrToInt(FormatDateTime('nn', now));
  Label1.Text := TimeToStr(hh,mm);
end;

[ZuBy]

спасибо... очень помог...

[Juggernaut]

Бл, я же их сделал... видать просто перепаковал в зип. Простите...