Gönderen Konu: Gun ay ve yil bilgisini almak  (Okunma sayısı 533 defa)

Çevrimdışı Zoroaster

  • Emektar
  • *****
  • İleti: 980
Gun ay ve yil bilgisini almak
« : 17 Nisan 2017, 03:14:58 »
Windowsun reginoal settingsdeki tanimindan bagimsiz sekilde tarih bilgisini rakamlarla gun/ay/yil seklinde ogrenmek istiyorum.

Nasil ogrenirim?


Çevrimdışı makdeniz

  • Kıdemli
  • ****
  • İleti: 226
  • www.plcforumu.com
    • PLC Forum
Ynt: Gun ay ve yil bilgisini almak
« Yanıtla #1 : 18 Nisan 2017, 00:31:46 »
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ı ?
« Son Düzenleme: 18 Nisan 2017, 00:46:59 Gönderen: makdeniz »

Çevrimdışı Zoroaster

  • Emektar
  • *****
  • İleti: 980
Ynt: Gun ay ve yil bilgisini almak
« Yanıtla #2 : 18 Nisan 2017, 05:59:11 »
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.


Çevrimdışı cetin1990

  • Müdavim
  • ***
  • İleti: 68
Ynt: Gun ay ve yil bilgisini almak
« Yanıtla #3 : 18 Nisan 2017, 07:15:58 »
Kod: [Seç]
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.

« Son Düzenleme: 18 Nisan 2017, 07:24:12 Gönderen: cetin1990 »

Çevrimdışı aykuto

  • Müdavim
  • ***
  • İleti: 53
    • http://
Ynt: Gun ay ve yil bilgisini almak
« Yanıtla #4 : 19 Nisan 2017, 05:42:17 »
s:=formatdatetime('dd-mm-yyyy',date);