Arsip: tanya date

more 17 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 17 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 17 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 17 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 17 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 17 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 17 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 17 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 17 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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Menampilkan progress-bar saat fetch data besar
by DelphiExpert in Lain-lain more 16 years ago - Ngisi karakter /,",',: ato \ dan sejenisnya ga bisa di
by wiseguy1997 in Tip n Trik Pemrograman more 15 years ago - Menampilkan data pada record terakhir dg SQL
by wiseguy1997 in MySQL more 15 years ago - multimedia pdf library freepascal linux
by batozai in Multimedia & Graphic Enhancement more 12 years ago - GPL h@ck
by jrp in OOT more 17 years ago - Cara mengatasi masalah yg seperti ini
by idhiel in Tip n Trik Pemrograman more 11 years ago - program baca cos phi
by mantox in Tutorial & Community Project more 16 years ago - Indonesian RentACoder..???
by ZeAL in Hal umum tentang Pascal Indonesia more 18 years ago - BDS error IDE langsung ke tutup
by Manz in Tip n Trik Pemrograman more 16 years ago - Error Msjtest40.dll......help.....
by fissas in Hal umum tentang Pascal Indonesia more 14 years ago