Gun ay ve yil bilgisini almak

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

Zoroaster

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

Nasil ogrenirim?

Seytan deliginden kacti.

makdeniz

#1
Alıntı yapılan: Zoroaster - 16 Nisan 2017, 12: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.

Seytan deliginden kacti.

cetin1990

#3
unit Unit1;

interface

uses
  dateutils, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  myDate: TDateTime;
  yil,ay,gun,
  myHour, myMin, mySec, myMilli: Word;

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


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


  DecodeTime(myDate, myHour, myMin, mySec, myMilli);
  DecodeDate(myDate,yil,ay,gun);

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


end;

end.

aykuto

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