On 8 Jun 1997 07:36:59 GMT, "Susan Barker" <11@wed.wed> wrote: >I need assistance in designing a calendar program. I am only >a beginning VB. programmer, and did not fully understand what to do.Please >help. if youReturnhave
any ideas please let me know. >the user must put the name of the month in textbox, number of days of the >month (31,30 or ..) in the next textbox, year (199x ) in another textbox, >first day in another textbox ( Monday=1), then you get all these printed on The user doesn'thave
to give all this input.. just the date. make a new project with a form and a command button Put the next code under the click event of the command button.. press f5 to run BTW: perhaps youhave
tomake
a change with the date-separator and the order (european = dd-mm-yy / american = mm-dd-yy). And of course to the output; it's now just straight forward! Privatesub
Command1_Click()dim
StartDatumdim
vMonthdim
vYeardim
StartDagdim
vRow%, vColomn% Const t1% = 5 Const t2% = 10 Const t3% = 15 Const t4% = 20 Const t5% = 25 Const t6% = 30dim
c%dim
GoFurther%startdatum
= InputBox("which first date", , Format(Now, "dd-mm-yy")) Ifstartdatum
= "" Then Exit Sub vMonth = Month(StartDatum) vYear = Year(StartDatum)startdatum
= CDate("1-" & vMonth & "-" & vYear) StartDag = DatePart("w", StartDatum) '1=sunday '2=monday 'etc GoFurther% = False Printer.Print StartDatum Printer.Print "S"; Tab(t1); "M"; Tab(t2); "T"; Tab(t3); "W"; _ Tab(t4); "T"; Tab(t5); "F"; Tab(t6); "S" Screen.MousePointer = vbHourglass For vRow% = 1 To 6 For vColomn% = 1 To 7 If (StartDag = vColomn% And Not GoFurther%) Then c% = 1 Printer.Print Str(c%); GoFurther% = True Else If (GoFurther% And IsDate(CStr(c%) & "-" & vMonth & _ "-" & vYear)) Then Printer.Print Str(c%);end
Ifselect
case
vColomn%case
1 Printer.Print Tab(t1);case
2 Printer.Print Tab(t2);case
3 Printer.Print Tab(t3);case
4 Printer.Print Tab(t4);case
5 Printer.Print Tab(t5);case
6 Printer.Print Tab(t6);end
Select c% = c% + 1 Next vColomn% Printer.Print Next vRow% Printer.EndDoc Screen.MousePointer = vbNormal End Sub