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???  

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

Artikel yang berkaitan