mCurDate = dt
lblTitle.Caption = Format(dt, "yyyy-MM-dd") & "生日提醒"
Dim strsql As String
Dim rs As ADODB.Recordset
Dim strThisAlertText As String
Dim strNextAlertText As String
Dim i As Long
Dim strDate As String
Dim strThisDay As String
Dim strNextDay As String
strThisDay = Month(dt) & "-" & Day(dt)
strNextDay = Month(DateAdd("d", 1, dt)) & "-" & Day(DateAdd("d", 1, dt))
strsql = "SELECT * FROM CUSTOMER " & _
"WHERE (NOT [Birthday] IS NULL) AND ((CStr(Month([Birthday]))+""-""+CStr(Day([Birthday]))) = '" & strThisDay & "'" & _
" OR (CStr(Month([Birthday]))+""-""+CStr(Day([Birthday]))) = '" & strNextDay & "') " & _
"ORDER BY [Birthday]"
Set rs = m_oConn.Execute(strsql)
If rs.RecordCount = 0 Then Exit Function
For i = 1 To rs.RecordCount
strDate = Month(rs("Birthday")) & "-" & Day(rs("Birthday"))
Select Case strDate
Case strThisDay
strThisAlertText = strThisAlertText & vbCrLf & vbTab & Field2Str(rs("Name")) & "," & Field2Str(rs("Tel"))
Case strNextDay
strNextAlertText = strNextAlertText & vbCrLf & vbTab & Field2Str(rs("Name")) & "," & Field2Str(rs("Tel"))
End Select
rs.MoveNext
Next
If Len(strThisAlertText) > 0 Then strThisAlertText = Format(dt, "yyyy-MM-dd") & "生日:" & strThisAlertText
If Len(strNextAlertText) > 0 Then strNextAlertText = Format(DateAdd("d", 1, dt), "yyyy-MM-dd") & "生日:" & strNextAlertText
GetBirthdayInfo = strThisAlertText
If Len(strThisAlertText) > 0 Then
GetBirthdayInfo = GetBirthdayInfo & vbCrLf & strNextAlertText
Else
GetBirthdayInfo = strNextAlertText
End If
End Function
请帮忙翻译下称c#的，看得累啊，谢谢了
