Új hozzászólás Aktív témák

• #982 Drótszamár őstag yksz #980

  Új Válasz 2005-10-17 23:10:55 #982

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Drótszamár

  őstag

  válasz yksz #980 üzenetére

  Integerbe sehogy, Word-be esetleg...
  
  DecodeDate(Now, ev, ho, nap);
  DecodeTime(Now, ora, perc, mp, msec);
  
  szerk: elkéstem
  
  [Szerkesztve]

• #981 Tele von Zsinór őstag yksz #980

  Új Válasz 2005-10-17 23:09:31 #981

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tele von Zsinór

  őstag

  válasz yksz #980 üzenetére

  Valahogy így:
  
  procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
  procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
  
  

  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    Present: TDateTime;
    Year, Month, Day, Hour, Min, Sec, MSec: Word;
   begin
    Present:= Now;
    DecodeDate(Present, Year, Month, Day);
    Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
      + IntToStr(Month) + ' of Year ' + IntToStr(Year);
    DecodeTime(Present, Hour, Min, Sec, MSec);
    Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
      + IntToStr(Hour);
  end;
  

Új hozzászólás Aktív témák