• Home
 · 
• Miscellaneous
 · 
• This is just a simple Birth day finder application. U can schedule it to run at system start up to

This is just a simple Birth day finder application. U can schedule it to run at system start up to

This is just a simple Birth day finder application. U can schedule it to run at system start up to have the list of ur friends who have

API Declarations


Dim rs As Recordset
Dim d As String
Dim m, dy, n As String
Dim i, j As Integer
Dim nam(20) As String



Rate This is just a simple Birth day finder application. U can schedule it to run at system start up to

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

i = 0
Set db = OpenDatabase("D:\web\Web\softwares\software\Birth\BIRTH.MDB")
Set rs = db.OpenRecordset("Select * from Bday")
rs.MoveFirst
d = Date
m = Mid$(d, 1, 2)
If Right$(m, 1) = "/" Then
dy = Mid$(d, 3, 2)
m = Left$(m, 1)
Else
dy = Mid$(d, 4, 2)
End If
If Right$(dy, 1) = "/" Then
dy = Left$(dy, 1)
End If
While Not rs.EOF
If Val(m) = Val(rs(1)) And Val(dy) = Val(rs(2)) Then
nam(i) = rs(0)
i = i + 1
End If
rs.MoveNext
Wend
n = "The Birthday list for today - "
For j = 1 To i
n = n & "..." & nam(j - 1) & "..."
Next
If Not i = 0 Then
MsgBox n
Else
MsgBox "Oops!!!!!No birthdays found"
End If
End
End Sub