Merry Christmas

  • Thread starter Thread starter Martin H.
  • Start date Start date
Martin H. said:
I wish you all a very merry Christmas and a happy new year!

Martin
Click to expand...

I think what you're trying to accomplish here can most efficiently be done
as follows:

Dim Christmas, NewYear as Holiday
Dim MoodC, MoodN as New HolidayAdjective
Christmas.Date.Month = 12 : Christmas.Date.Day = 25
IF Christmas.Date.Year > 0 THEN MoodC.Description = "Merry" ELSE
MoodC.Description = "Undefined"
NewYear.Date.Month = 1: NewYear.Date.Day = 1
MoodN.Description = "Happy"

Alternatively, you can include the following line:
Christmas.UnderTree.Item = New iPOD
after line 3, in which case MoodC.Description is automatically set to
"Merry"

I would also recommend adding the following line:
NewYear.DateAdd('hour", -12).DrinkResponsibly = TRUE
This will ensure that
NewYear.SpendTimeinJailForDrunkDriving is not inadvertently set to TRUE
 
Murray said:
I think what you're trying to accomplish here can most efficiently be done
as follows:

Dim Christmas, NewYear as Holiday
Dim MoodC, MoodN as New HolidayAdjective
Christmas.Date.Month = 12 : Christmas.Date.Day = 25
IF Christmas.Date.Year > 0 THEN MoodC.Description = "Merry" ELSE
MoodC.Description = "Undefined"
NewYear.Date.Month = 1: NewYear.Date.Day = 1
MoodN.Description = "Happy"

Alternatively, you can include the following line:
Christmas.UnderTree.Item = New iPOD
after line 3, in which case MoodC.Description is automatically set to
"Merry"

I would also recommend adding the following line:
NewYear.DateAdd('hour", -12).DrinkResponsibly = TRUE
This will ensure that
NewYear.SpendTimeinJailForDrunkDriving is not inadvertently set to TRUE
Click to expand...


** LOL ** ;-)

But instead of iPOD i would say X-Box 360
 
Back
Top