Gun ay ve yil bilgisini almak

Başlatan Zoroaster, 16 Nisan 2017, 15:14:58

Zoroaster

Windowsun reginoal settingsdeki tanimindan bagimsiz sekilde tarih bilgisini rakamlarla gun/ay/yil seklinde ogrenmek istiyorum.

Nasil ogrenirim?

חור השטן יוצא

makdeniz

17 Nisan 2017, 12:31:46 #1 Son düzenlenme: 17 Nisan 2017, 12:46:59 makdeniz
Alıntı yapılan: Zoroaster - 16 Nisan 2017, 15:14:58
Windowsun reginoal settingsdeki tanimindan bagimsiz sekilde tarih bilgisini rakamlarla gun/ay/yil seklinde ogrenmek istiyorum.

Nasil ogrenirim?





Hocam tarihi nasıl çekiyorsunuz. ?

http://www.delphibasics.co.uk/RTL.asp?Name=DateTimeToStr

yada daha basiti "Gün" "Ay" ve "Yılı" ayrı ayrı çekerek  aralara "/" koysanız.
Bağımsız şekilde demek istediğiniz aradaki "/" yerine "." veya "-" çıkması mı ?
Karanlık olmadan aydınlık, Ölüm olmadan yaşam mantıksız.

Zoroaster

Windowsda Tarih formatı 12 May 2017 gibi yapılmış olsa bile ben 12-05-2017 şeklinde elde etmek istiyorum.

Tarih bilgisini S:=DateToStr(Date); şeklinde okuyorum.

חור השטן יוצא

cetin1990

17 Nisan 2017, 19:15:58 #3 Son düzenlenme: 17 Nisan 2017, 19:24:12 cetin1990
Kod Seç
unit Unit1;

interface

uses
  dateutils
WindowsMessagesSysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrls;

type
  TForm1 
= class(TForm)
    
Button1TButton;
    
procedure Button1Click(SenderTObject);
  private
    { Private 
declarations }
  public
    { Public 
declarations }
  
end;

var
  
Form1TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(SenderTObject);
var
  
myDateTDateTime;
  
yil,ay,gun,
  
myHourmyMinmySecmyMilliWord;

begin
  
// Set up the myDate variable to have a December 2000 value
  
myDate := today;


// ?  myDate := IncMinute(myDate, 5);


  
DecodeTime(myDatemyHourmyMinmySecmyMilli);
  
DecodeDate(myDate,yil,ay,gun);

  
ShowMessage(inttostr(Ay)+'-'+inttostr(gun) + '-'+inttostr(yil));


end;

end.


aykuto

s:=formatdatetime('dd-mm-yyyy',date);