R
Richard
This code works great but there are several things that I
just don't understand. Can Anyone please help.
First - I understand the Dim, what is the * 10000 for?
Second - GetSetting("Demo", "Drafts", "Month", 0) There is
no where in my workbook that refers to "Demo",
Drafts", "Month", and what does the 0 do?
Third - SaveSetting is that saving both the L and the M
when I click the Yes buttom
Private Sub Workbook_Open()
Dim L As Long, M As Long
L = Month(Date) * 10000 + Year(Date)
M = GetSetting("Demo", "Drafts", "Month", 0)
If L = M Then Exit Sub
If Day(Date) >= 10 And Day(Date) < 15 Then
If MsgBox( _
"Have you posted your drafts for Golds Gym
($28.00)" & _
"and NetZero ($9.95) for the 15th.!", _
vbYesNo, "Automatic Drafts Reminder") = vbYes Then
Call SaveSetting("Demo", "Drafts", "Month", L)
End If
End If
End Sub
just don't understand. Can Anyone please help.
First - I understand the Dim, what is the * 10000 for?
Second - GetSetting("Demo", "Drafts", "Month", 0) There is
no where in my workbook that refers to "Demo",
Drafts", "Month", and what does the 0 do?
Third - SaveSetting is that saving both the L and the M
when I click the Yes buttom
Private Sub Workbook_Open()
Dim L As Long, M As Long
L = Month(Date) * 10000 + Year(Date)
M = GetSetting("Demo", "Drafts", "Month", 0)
If L = M Then Exit Sub
If Day(Date) >= 10 And Day(Date) < 15 Then
If MsgBox( _
"Have you posted your drafts for Golds Gym
($28.00)" & _
"and NetZero ($9.95) for the 15th.!", _
vbYesNo, "Automatic Drafts Reminder") = vbYes Then
Call SaveSetting("Demo", "Drafts", "Month", L)
End If
End If
End Sub