Arsip: tanya date
more 18 years ago
brodien
hlo semua saya baru gabung di sini
mau nanya..
saya punya combobox nama bulan dlm bahasa indon...januari ......des
gimana caranya misal
dari combobox itu aku mau tau 2 atau 5 bulan setelahnya
???????? :oops:
makasih tlong scripnya sekalian...ya
more 18 years ago
cyber_hecker
kekekekeke :P. singkat aja deh...
procedure TForm1.ComboBox1Change(Sender: TObject);
var
nBulan, nNextMonth : Integer;
begin
try
nBulan := StrToInt(Edit1.Text);
except
on e: Exception do begin
ShowMessage(e.ClassName +#10#13+ e.Message);
nBulan := 0;
end;
end;
nNextMonth := ComboBox1.ItemIndex + nBulan;
if nNextMonth > 11 then
nNextMonth := nNextMonth - 12;
Edit3.Text := ComboBox1.Items[nNextMonth];
end;
koding diatas adalah berfungsi mencari nama bulan berikutnya sesuai dengan interval bulan yang diberikan. bila nilai intervalnya 2, maka akan dicari 2 bulan kedepan setelah nilai bulan yang terdapat pada comboBox.
more 18 years ago
boy_borland
post dari kang cyber pasti dah bisa jawab pertanyaan kamu...
buat nambah-nambah, cobain deh fungsi incMonth(DateTime, Int)
contoh :
showmessage(datetostr(incMonth(date,3)));
klo date=28/12/2005,
maka hasilnya akan jadi 28/02/2006
more 18 years ago
brodien
ok pak udah bisa tu pak makasih ya... :lol:
tapi mau nanya lagi nih pak
1 aku punya table pake mysql lewat odbc
isi table tuh nama bulan dalam bahasa indonesia ..januari ..desember
nah pas tak query tak tampilkan di dbgrid ..
tampilnya gak urut dari atas bulan januari ...kebawah desember ..
tapi acak
pas tak orderby dia ngurut abjad ,bukan urut bulan
gimana tuh pK
2.AKU DAPAT SCRIPT UNTIKform fullscren
aku pake xp
tapi kenapa taskbarnya gak mau hilang
jadi gak benar2 fullscren
maksih lagi :oops: :oops: :oops: :oops:
more 18 years ago
EkoIndri
bos, kasih solusi donk................
klo mySQL aq g tahu (g pernah sentuh soale)
menurutku, mending order by angka bulan dikombinasikan dengan case aja.(klo di MS SQL)
more 18 years ago
LuriDarmawan
yup,
order by tetep berdasar angka bulan saja, ini lebih enak.
untuk kemudian menjadi nama-bulan, itu cukup bermain di GUI saja.
dari combobox, khan terdapat properti itemindex juga,
nah.. itemindex+1 sudah sama dengan angka-bulan kok.
more 18 years ago
imunk
coba gini :
select (case when bulan='Januari' then 1 when bulan='Februari' then 2..........) as bulan from table order by bulanmoga membantu... peace...
more 18 years ago
brodien
udah pak.....
akire tabel saya saya tambahin satu kolom lagi untuk mengurut kan..
tapi klo mau buat ...
tabel berwarna ..berdasarkan nama bulan gimana ya..
:oops: :oops: :oops:
nanya melulu
:oops: :oops:
more 18 years ago
brodien
walah pak maaf pa ya nany algi nih :oops:
ternyata setelah ganti tahun ...hasil pengurutan bulan nya gak sesuai dengan maksud saya ...
jadi ceritanya begini ..
saya mau nampilkan bulan sekarang dan 2 bulan sebelumnya denagn urutan bulan yang sebenarnya..misal..sekarang januari di tabel mau saya
1.nopember2005 ==>nilai dari indexitem+1 combobox =11
2.desember2005 =12
3.januari2006 =1
tapi ternyata yang tampil (order by nilai indexitem(aku tambahkan satu kolom lagi di tabel untuk mengurutkan)
1.desember2005 =>12
2.nopember2005 =>11
3.januari2006 =>1
==========================
1.klo mengambil nilai dari ttimestamp untuk mengurutkan bisa gak ya gimana caranya pak/buk(ada ibuk nya gak ya)?
:lol: /bapak semua kayak STM
2.gimana caranya nampilkan ttimestam ke string
atau ngak pake pengurutan pake double/tdatetime bisa gak ya?
klo bisa giman caranya aku .............aku juga bingung nih
pokoke gimana lah caranya supaya bisa urut sepeti contoh di atas
berpatokan pada isian combobox(namabulan dalama bahasa indonesia)
makasih pak ya................ya........... :oops: :oops:
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- kylix
by belajaraja in Delphi.NET more 17 years ago - delphi+Ado sql sum errors?
by zean in Hal umum tentang Pascal Indonesia more 17 years ago - save file path ???(please urgent)
by bastian in Tip n Trik Pemrograman more 17 years ago - mo tanya
by and_re in Hal umum tentang Pascal Indonesia more 15 years ago - Gelar berdasarkan Jumlah Posting
by deLogic in Hal umum tentang Pascal Indonesia more 18 years ago - Missing Person [UPDATED]...
by deLogic in OOT more 19 years ago - ada yang tau cara buka laci uang buat kasir pake delphi?
by alvonz in MsSQL more 16 years ago - tanya reporting
by ygmarta in Tip n Trik Pemrograman more 13 years ago - Tanya istilah package dong......
by greatjon2002 in Tip n Trik Pemrograman more 17 years ago - Tny : Pake komponen apa..??
by jontiloesmod in Tip n Trik Pemrograman more 15 years ago