Penulis Topik: i need help VB6 PROGRAMMING  (Dibaca 4747 kali)

Offline susahnye

  • Pro1
  • *
  • Tulisan: 2
  • Reputation: +36/-0
    • Lihat Profil
i need help VB6 PROGRAMMING
« pada: Juni 05, 2010, 04:45:35 PM »
 MASTA GIMANA YA CARA MENJUMLAHKAN TANGGAL ????
CONTOHNYA

LBLTGL AWAL (MISALNYA TGL 12-JUNI-2010)
TXTLAMAHARI (MISALNYA 30)
TXTTGL AKHIR

NAH SCRIPT UNTUK MENJUMLAHKAN LBLTGL AWAL DENGAN TXTLAMAHARI GIMANA YA SUPAYA HASILNYA BISA JADI 30 HARI SETELAH 12-JUNI-2010
ATAU HASILNYA MENJADI "11-JULI-2010"

MOHON BANTUANYA YA MASTA!!!!!!! :'(

BINGUNG BGT NIH!!!! :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'(

Offline antwa

  • Pro3
  • **
  • Tulisan: 9
  • Reputation: +35/-0
  • Jenis kelamin: Pria
    • Lihat Profil
    • antwablog
Re: i need help VB6 PROGRAMMING
« Jawab #1 pada: Juni 05, 2010, 05:18:26 PM »
sekedar ngebantu (maaf klo salah coz ane masih newbi and nie baru bikin tadi pas liat post inie) :D

Kode: [Pilih]
Private Sub Command1_Click()
Dim buffer_date As Date

buffer_date = lbltgl.caption
txttglakhir.text = Format(buffer_date + TXTLAMAHARI, "DD/MM/YYYY")

End Sub

note:
tambahkan command button yang bernama Command1

semoga membantu  :D

Offline Ryan BeKaBe

  • Admin
  • Pro500
  • *******
  • Tulisan: 2.006
  • Reputation: +65535/-1
  • ToS (Team of SmadAV)
    • Lihat Profil
    • BeKaBe
Re: i need help VB6 PROGRAMMING
« Jawab #2 pada: Juni 05, 2010, 05:28:15 PM »
Haha.... Take easy guy!
Tugas ya? Tugas kampus/sekolah?


Nih sedikit dari saya, semoga membantu, sisanya rekan 'susahnye' pasti bisa :):

Private Sub Command1_Click()
Text1.Text = Day(Now + Day(30))
End Sub
Referral VPS (mulai dari $5 /bulan, 25GB) untuk dapatkan bonus saldo:
1) UpCloud: https://upcloud.com/signup/?promo=76RH93
2) Vultr: https://www.vultr.com/?ref=8082682
3) AlibabaCloud: https://www.alibabacloud.com/referral?referralCode=a6qmol
--
Cek ID Ransomware: https://id-ransomware.hanyajasa.com

Offline The Gugel

  • Trusted Advisor
  • Pro500
  • *****
  • Tulisan: 3.073
  • Reputation: +65535/-23
  • Jenis kelamin: Pria
  • Suka Membodohkan Orang, Tanda Ilmu Tak Bermanfaat
    • Lihat Profil
Re: i need help VB6 PROGRAMMING
« Jawab #3 pada: Juni 06, 2010, 03:58:52 PM »
semoga dpt mjd inspirasi :


utk lbh jelasnya ane sertakan source code nya...lihat attachment dibawah...


Offline Pocan

  • Pro100
  • ****
  • Tulisan: 161
  • Reputation: +236/-0
  • .: Just My Pocan :.
    • Lihat Profil
Re: i need help VB6 PROGRAMMING
« Jawab #4 pada: Juni 07, 2010, 05:15:45 PM »
Kode: [Pilih]
txtTglAkhir = cDate(lblTglAwal) + 30cDate : Merubah sting menjadi type data Date

saran : mending kamu pake dtpicker dari pada kamu pake label, kenapa ???
dtpicker format objectnya pasti format datetime (hanya untuk menghindari kesalahan penulisan format tanggal

salam
.: Trust No One :=: [Anti Trust] :.