- 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(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
This is just a simple Birth day finder application. U can schedule it to run at system start up to Comments
No comments yet — be the first to post one!
Post a Comment