Thursday, December 01, 2011

Nambah atau Ngurang Tanggal di VB 6.0

Hai bloggers...
dah lama banget nie aq nyari Rumus/ Source Kode buat nambah tanggal secara otomatis Di VB 6.0
setelah berlama lama dengan mbah google akhirnya ketemu jg tuh Source Code nya dan akhirnya berhasil.
Untuk nambah tanggal
Formatnya:
dateadd([interval], [term/jmlnya], [start tglnya]
Contoh:
ttgl.text = Format(DateAdd("d", 135 - 1, now), "dd/MM/yyyy")
(untuk tanggal (day) )
Klo mo ganti Interval nie keterangannya:
Enumeration value String Desc
DateInterval.Day d Day; truncated to integral value
DateInterval.DayOfYear y Day; truncated to integral value
DateInterval.Hour h Hour; truncated to integral value
DateInterval.Minute n Minute; truncated to integral value
DateInterval.Month m Month; truncated to integral value
DateInterval.Quarter q Quarter; truncated to integral value
DateInterval.Second s Second; truncated to integral value
DateInterval.Weekday w Day; truncated to integral value
DateInterval.WeekOfYear ww Week; truncated to integral value
DateInterval.Year yyyy Year; truncated to integral value
dan kalian juga bisa mengurangi tanggal
Contoh:
 ttgl.text = Format(DateAdd("d", 1 - 120, now), "dd/MM/yyyy")
nie kalian coba aja sapa tw bisa...
saya sudah berhasil.Bagaimana dengan Anda???  

Astiqie
Image by Cool Text: Free Logos and Buttons - Create An Image Just Like This

Artikel yang berkaitan



0 comments: