Tarih : Gün Ay Yıl

[webaytek]

TDateTimePicker ile bugünün tarihini 3 ayrı edit'e atabilebilmemin bi yolu war mı

[naile]

1. edite gün 2. edite ay 3. edite yıl mı?

Eğer öyleyse bunu tarih fonksiyonları ile yapabilirsin

http://www.delphiturkiye.com/index.php? ... tetime.htm

[webaytek]

aynen ööle tşk

[webaytek]

delphi5 te bööle bişiy yokmuş - DateUtils - maalesef alternatif?

[akgun83]

tarih formatının gün ay yıl şeklinde olduğunu varsayarsak
Copy(tarih,1,2) komutuyla gün kısmını,
Copy(tarih,4,2) komutuyla ay kısmını,
Copy(tarih,7,4) komutuyla yıl kısmını alabilirsin.

[webaytek]

mesela

a:=datetimepicker1.date;

diicem

ama a yı string olarak ayarlarsam hata veriyor - integer de olmuyor, date gibi bişiy war mı

[husonet]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    Tarih:TDateTime;
    Gun, Ay, Yil: Word;
begin
    Tarih := DateTimePicker1.Date;
    DecodeDate(Tarih, Yil, Ay, Gun);
    Edit1.Text := IntToStr(Gun);
    Edit2.Text := IntToStr(Ay);
    Edit3.Text := IntToStr(yil);
end;

Kolay Gelsin...

[webaytek]

tamam saolun ben de word oldugunu şimdi eski documanlardan buldum da datetimepickerın ismi ile değişkeni aynı kullanıyormuşum - hata oradaymış - yeniden saolun

[webaytek]

aklıma çok geyik bişiy geldi belki ileride bi programımda çerez diye kullanabileceğim bi takvim oluşturacağım da bööle resmi bayramları falan işaretliicek - günü geldimi bildirecek - bööle yapılmış bi program gören varsa (kod olmasına gerek yok) link verebilirse sevinirim.

[NeverFear]

Denemende yarar var düşüncesindeyim

Kod: Tümünü seç

// Korkud ERÇETİN
// 1. Formunuza 2 adet MaskEdit, 3 Adet Memo, 1 Adet Button ekleyin.
// 2. MaskEdit'lerin EditMask'larını ##/##/####;1; Text'lerini ise
//    2bos.2bos.4bos olarak ayarlayın.
procedure TForm1.Button1Click(Sender: TObject);
var
  TARIH, BUGUN, SONUC: TDateTime;
  GUN1, AY1, YIL1, GUN2, AY2, YIL2: Word;
  GUN, AY, YIL: Integer;

begin
  BUGUN:= StrToDate(MaskEdit1.Text);
  TARIH:= StrToDate(MaskEdit2.Text);
  DecodeDate(BUGUN, YIL1, AY1, GUN1);
  DecodeDate(TARIH, YIL2, AY2, GUN2);
  YIL:= YIL1 - YIL2;
  AY:= AY1 - AY2;
  if AY < 0 then
  begin
    AY:= AY + 12;
    YIL:= YIL - 1;
  end;
  GUN:= GUN1 - GUN2;
  if GUN < 0 then
  begin
    GUN:= GUN + 30;
    AY:= AY - 1;
  end;
  if AY < 0 then
  begin
    AY:= AY + 12;
    YIL:= YIL - 1;
  end;
  Memo1.Text:= IntToStr(YIL);
  Memo2.Text:= IntToStr(AY);
  Memo3.Text:= IntToStr(GUN);
  Button1.Enabled:= False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  for I:= 0 to ComponentCount - 1 do
  begin
     if (Components[I] is TMaskEdit) then TMaskEdit(Components[I]).Text:= '';
     if (Components[I] is TMemo) then TMemo(Components[I]).Text:= '';
     if (Components[I] is TEdit) then TEdit(Components[I]).Text:= '';
  end;
  Button1.Enabled:= False;
end;

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  if (Screen.ActiveForm.ActiveControl is TMaskEdit) then
  if (Screen.ActiveForm.ActiveControl as TMaskEdit).EditText = '' then
     (Screen.ActiveForm.ActiveControl as TMaskEdit).EditText:= '  /  /    ';
end;

procedure TForm1.MaskEdit2Exit(Sender: TObject);
begin
  if MaskEdit1.EditText <> '  .  .    ' and MaskEdit2.EditText <> '  .  .    'then
  begin
     Button1.Enabled:= True;
     Button1.SetFocus;
  else begin
     Button1.Enabled:= False;
     MaskEdit2.SetFocus;
  end;
end;

procedure TForm1.MaskEdit2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
     Perform(WM_NEXTDLGCTL,0,0)
end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then MaskEdit1Exit(MaskEdit1);
end;

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
  if MaskEdit1.EditText <> '  .  .    ' then MaskEdit2.SetFocus
  else MaskEdit1.SetFocus;
end;

// Not : Ben, MaskEdit'lerin içeriğinin tarih formatına uygun olup olmadığını
// kontrol etmedim. Siz gerekli kontrolü ilave edebilirsiniz.
// Şubat kontrolü isteyenlere ayrıca kod gönderebilirim.

[webaytek]

delphi5 kodu görünce korktu

Kod: Tümünü seç

procedure TForm1.MaskEdit2Exit(Sender: TObject);
begin
if MaskEdit1.EditText <> '  .  .    ' and MaskEdit2.EditText <> '  .  .    'then
     begin
     Button1.Enabled:= True;
     Button1.SetFocus
     end

Operator not applicable to this operand type

[akgun83]

Kod: Tümünü seç

if (MaskEdit1.EditText <> '  .  .    ') and (MaskEdit2.EditText <> '  .  .    ')then 

şeklinde bi dene.

[webaytek]

tamam teşekkürler - şu ana kadar süper gidio