Windowsun reginoal settingsdeki tanimindan bagimsiz sekilde tarih bilgisini rakamlarla gun/ay/yil seklinde ogrenmek istiyorum.
Nasil ogrenirim?
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ı ?
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.
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.
s:=formatdatetime('dd-mm-yyyy',date);