Школоло / Говнокод #2627 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
Function GetFmtTime:String;
var
  tmpD : string;
  crdate: TDateTime;
begin
  crdate := Now;
  tmpD := IntToStr(YearOf(crdate))+'-';

  If MonthOf(crdate)<10 Then tmpD := tmpD + '0';
  tmpD := tmpD + IntToStr(MonthOf(crdate))+'-';

  If DayOf(crdate)<10 Then tmpD := tmpD + '0';
  tmpD := tmpD + IntToStr(DayOf(crdate))+'(';

  If HourOf(crdate)<10 Then tmpD := tmpD + '0';
  tmpD := tmpD + IntToStr(HourOf(crdate)) + '-';

  If MinuteOf(crdate)<10 Then tmpD := tmpD + '0';
  tmpD := tmpD + IntToStr(MinuteOf(crdate)) + '-';

  If SecondOf(crdate)<10 Then tmpD := tmpD + '0';
  tmpD := tmpD + IntToStr(SecondOf(crdate)) + ')';

  Result := tmpD;
end;

А почему бы не использовать обычную FormatDateTime?!
До моего прихода на фирму все пользовались выше приведенным кодом! (и много еще чем!)

Запостил: Antonio_net Antonio_net, (Updated )

Комментарии (2) RSS

  • ava pups # Ссылка на оригинал 0

    даже без знания дельфи говно на лицо, плюсую 🙂
    Ответить

  • ava guest # Ссылка на оригинал 0

    А почему бы не использовать обычную FormatDateTime?!
    Звучит как "А не использовать ли нам bbcode? " 🙂
    Ответить

Добавить комментарий

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓