Daftar beberapa penyedia Widget Polls atau Voting untuk Blog atau website

http://www.toluna.com

• harus daftar dulu
• satu poll berlaku untuk 6 bulan maksimum
• ada program untuk dapat hadiah tapi saat ini untuk indonesia belum termasuk
• disainnya tidak bisa dikostumisasi
• widget bebas iklan
• bisa beberapa poll

http://www.bravenet.com

• harus daftar dulu
• satu poll akan aktif terus sebelum kita menonaktifkannya
• disain ada empat pilihan
• bebas iklan, hanya ada logo Bravenet saja
• versi free hanya dapat mengaktifkan satu poll saja
• dibawah adalah contoh poll dari bravenet.com

yang ini adalah vote dari bravenet

Cast Your Vote

Free Vote Casters by Bravenet.com

Convert week number to month (VB 6)

Private Sub WeektoMonth_01() 'Start with week in which January 1 occurs

Dim FirstDate As Date ' Declare variables.

Dim IntervalType As String

Dim WeekNumber As Integer

Dim Msg

IntervalType = "ww" ' "ww" specifies weeks as interval.

FirstDate = DateSerial(Year(Now), 1, 1)

WeekNumber = InputBox("Enter number of weeks to add")

Msg = "Month of week " & WeekNumber & " is " & Month(DateAdd(IntervalType, WeekNumber - 1, FirstDate))

MsgBox Msg

End Sub