Arsip: tanya date

more 19 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 19 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 19 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 19 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 19 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 19 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 19 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 19 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 19 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
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 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 5 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
- aplikasi psikotes
by Lidan in Tip n Trik Pemrograman more 17 years ago - Keyboard Character?Help
by Durman in Hal umum tentang Pascal Indonesia more 17 years ago - Pengelompokan data menggunakan Array
by telkom_1 in Tip n Trik Pemrograman more 17 years ago - Video Capture
by greatjon2002 in Multimedia & Graphic Enhancement more 18 years ago - Block warna dimemo pd saat dipilih
by rlina88 in Tip n Trik Pemrograman more 17 years ago - [sug] searching by date
by cyber_hecker in Kritik & Saran more 17 years ago - Value dbcombobox.
by r_rie in Tip n Trik Pemrograman more 15 years ago - koq looping 9 kali, bukan 3 kali??
by 6cyu in MySQL more 15 years ago - Tanya Tentang Code Realtime???
by cyber2000 in Tip n Trik Pemrograman more 15 years ago - Lama Gak Berkunjung Delphindo Mkin asik
by Mr-Soft in Kritik & Saran more 18 years ago