daily pastebin goal
45%
SHARE
TWEET

Untitled

a guest Dec 10th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     x: TDateTime;
  2.     P24: integer;
  3. begin
  4.     s := edtP.text;
  5.     P24 := StrToInt(copy((s), 1, pos(':', s) - 1)) div 24;
  6.     x := StrToDate(edtD.Text) + StrToTime(edtT.Text) + P24 + StrToTime(IntToStr(StrToInt(copy((s), 1, pos(':', s) - 1)) - 24 * P24) + copy(s, pos(':', s), length(s) - pos(':', s)));
  7.     case DayOfWeek(x) of
  8.         1: s := 'Вс';
  9.         2: s := 'Пн';
  10.         3: s := 'Вт';
  11.         4: s := 'Ср';
  12.         5: s := 'Чт';
  13.         6: s := 'Пт';
  14.         7: s := 'Сб';
  15.     end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top