- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
// Вот так вот говнокодеры встречают конeц света:
Function GetYear(StringYear : String) : Integer;
Begin
If StringYear = '2000' then result:=2000;
If StringYear = '2001' then result:=2001;
If StringYear = '2002' then result:=2002;
If StringYear = '2003' then result:=2003;
If StringYear = '2004' then result:=2004;
If StringYear = '2005' then result:=2005;
If StringYear = '2006' then result:=2006;
If StringYear = '2007' then result:=2007;
If StringYear = '2008' then result:=2008;
If StringYear = '2009' then result:=2009;
If StringYear = '2010' then result:=2010;
If StringYear = '2011' then result:=2011;
If StringYear = 'EndOfTheWorld' then result:=2012;
End;
вообще-то результат возвращается Integer!
Function GetYear(StringYear : String) : Integer;