Arsip: ask? cara menampilan hari dari tanggal?

more 18 years ago
faridx
ask? cara menampilan/mengambil hari dari tanggal?
menta contoh dari datetimepicker aja.
ga kepikiran
lg puyeng, plis secepatnya.




more 18 years ago
Lamsidjan
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatDateTime('ddd',DateTimePicker1.Date);
//between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.
//Edit1.Text := IntToStr(DayOfTheWeek(DateTimePicker1.Date));
end;

more 18 years ago
S4D
ane nimbrung nih bang, ane make listing beginian biar datetimenya langsung masuk ke DataBase M$. Access :
Procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert Into Nama_Table(No,Tanggal)');
ADOQuery1.SQL.Add('values('+QuotedStr(Edit1.Text)+','+QuotedStr(FormatDateTime('dd/mm/yyyy',now)+')');
ADOQuery1.ExecSQL;
end;
yg jadi masalah terkadang Tahun yg tersimpan di database ko' berubah menjadi 1899 ya' ???
mohon pencerahan

more 18 years ago
zieborg
coba gini
Procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert Into Nama_Table(No,Tanggal) values (:No,:Tanggal)');
ADOQuery1.parameters.parambyname('No').value := Edit1.Text;
ADOQuery1.parameters.parambyname('Tanggal').value := now;
ADOQuery1.ExecSQL;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- edit registry (butuh mendadak - skripsi)
by gatotkaca in Tip n Trik Pemrograman more 16 years ago - Convert String
by syntax_error in Tip n Trik Pemrograman more 17 years ago - instalasi zeos
by chandra in Hal umum tentang Pascal Indonesia more 18 years ago - copy folder beserta isinya
by vera in Tip n Trik Pemrograman more 17 years ago - Bagaimana membuat Insert/Overwrite di dalam Edit???
by hard13 in Tip n Trik Pemrograman more 17 years ago - firebird untuk aplikasi client-server
by ho2sly in FireBird more 17 years ago - trouble network database
by ImanD in MySQL more 17 years ago - translate MoveMemory 'kernel32' VB ke Delphi
by esafm in Tip n Trik Pemrograman more 15 years ago - Help
by oktavianus783 in Tip n Trik Pemrograman more 16 years ago - link komponen tdotmatrix delphi7 free
by boediman in OOT more 17 years ago