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

• #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