Devexpressin tcxdateedit ve tcxtimeedit'i üstünde encodedatetime fonksiyonunu daha önce uygulayabilen arkadaşlar varmı acaba?Yapmak istediğim dateedit ve timeedit değerlerini birleştirerek database'e yollamak fakat değerler devexpress bileşenlerinde (editvalue) variant olunca açıkcası kafam baya bi karıştı.Hatta soruyu şöylede düzeltebilirim; Değeri variant olan iki farklı bileşenin değerlerini alıp nasıl encodedatetime kullanarak birleştirebiliriz?
Hepinize kolay gelsin.Teşekkürler...
Çözüm
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
tar:TDatetime;
sat:TdateTime;
yil,ay,gun,saat,dakika,sn,msn:word;
begin
//showmessage(tarih.EditText);
//tar:=tarih.EditValue;
VarToDateTime(bassaat.EditValue);
tar:=VarToDateTime(tarih.EditValue) ;
FormatDateTime('dd mm yyyy',tar);
DecodeDate(tar,yil,ay,gun);
DecodeTime(bassaat.EditValue,saat,dakika,sn,msn);
//ShowMessage(timetostr(sa));
//ShowMessage(datetostr(tar));
showmessage(datetimetostr(encodedatetime(yil,ay,gun,saat,dakika,0,0)));
end;
İyi çalışmalar.