Very Limitied Calendar

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Very Limitied Calendar

Logged in as: Guest

arrSession:exec spGetSession 2,16,63214

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Very Limitied Calendar
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Very Limitied Calendar - 8/6/2008 5:13:27 PM

djredmar

Posts: 61
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

A few years ago i tried to write an calendar like layout, but my skills were to bad to finish..

I decided to try this again, this time with more luck.On most corporate desktop computers you are not allowed with your default account to open the time properties of the taskbar.
If you wanted to schedule something you had to open outlook or somelike to watch an calendar scheme (like what day falls 25 dec on?)

I wrote this limited script without functions that allow you to view next month, but this can be quite handy.

Sorry for the strange formulation of my englisch but i'm dutch and it's early and i don't know how to call some stuff by name :-)

Option Explicit
If LCase(Right(Wscript.FullName, 11)) = "wscript.exe" Then
   
   Dim objShell : Set objShell = CreateObject("Wscript.Shell")
   
   objShell.Run("%comspec% /k cscript  " & Chr(34) & Wscript.ScriptFullName & chr(34))
   Wscript.Quit
   
End If
Dim CurrentDate
'CurrentDate = #dec 25 2008# 'For debugging purposes
CurrentDate  = Date
'Specify the 2 digit names for the weekdays
Dim arrWeekDays : arrWeekDays = Array("zo", "ma", "di", "wo", "do", "vr", "za")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Define the header for the calendar
' e.g.
'      zo   ma   di   wo   do   vr   za
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i
Dim strOutput
  
strOutput = ""
For i = 0 To Ubound(arrWeekDays)
strOutput = strOutput & " " & arrWeekDays(i)
Next

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Next we need to calculate what month we are in, on which day it started
'and how many days does it have.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CurrentDay   : CurrentDay = Day(CurrentDate)
Dim CurrentMonth : CurrentMonth = Month(CurrentDate)
Dim CurrentYear  : CurrentYear = Year(CurrentDate)
'Calculate the startDay of Month
Dim dtmStartMonth
dtmStartMonth = CurrentDate - CurrentDay + 1
'Calculate Last Day of the Current Month!
'Get the currentdate, add one month up. Count the days off from the last date
Dim dtmEndMonth
'Check if month is December, if so then we need to calculate the next day 
'Which means; month is jan, and year = + 1
If CurrentMonth = 12 Then
dtmEndMonth = CDate(CurrentDay  & "-" & "01" & "-" & CurrentYear + 1) - CurrentDay
Else
dtmEndMonth = CDate(CurrentDay  & "-" & CurrentMonth + 1 & "-" & CurrentYear) - CurrentDay
End If
Dim intWeekDayMonthStarted : intWeekDayMonthStarted = WeekDay(dtmStartMonth) - 1

Dim ArrMonth(42)
'First Assign All zero's to the array,
'This is later used to replace for spaces
For i = 0 To 42
arrMonth(i) = "00"

Next
'Fill the array, Fill from the weekday starts
'Later we use an loop to draw all the stuff statically
For i = 0 To Day(dtmEndMonth)
'If it's smaller than 10 it's 1 digit, use an extra 0
If i < 10 Then 
 arrMonth(intWeekDayMonthStarted + i) = "0" & i 
Else
 arrMonth(intWeekDayMonthStarted + i) = i 
End If
Next
'Print actual data
'Use the arrMonth matrix to draw it all! :-)
Wscript.Echo strOutput & VbCr
strOutput = "" 'Clear output buffer
For i = 0 to Ubound(ArrMonth)
strOutput = strOutput & " " & arrMonth(i)
strOutput = Replace(strOutput, "00", "  ") 'Clear non used data for spaces
If i Mod 7 = 0  Then 'If we count 7, make an pageBreak
 Wscript.Echo strOutput & VbCr
 strOutput = ""
End If
Next
Wscript.Echo strOutput 
wscript.sleep 3000

Attachment (1)

_____________________________

blah?

Post #: 1

RE: Very Limitied Calendar - 8/6/2008 11:15:22 PM

TomRiddle

Posts: 191
Score: 4
Joined: 2/7/2008
Status: online

nice script, it has plenty of possibilities.
You could output this to a msgbox or to a little html file or embed this code into a HTA

I had a play with it and made it multilingual for you.

'Specify the 2 digit names for the weekdays
Dim arrWeekDays(7)
dim x
for x=1 to 7
arrWeekDays(x-1)=left((WeekdayName(x)), 2)
next

Dim i
Dim strOutput
  
strOutput = ""
For i = 0 To Ubound(arrWeekDays)
strOutput = strOutput & " " & arrWeekDays(i)
Next

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Next we need to calculate what month we are in, on which day it started
'and how many days does it have.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CurrentDay   : CurrentDay = Day(CurrentDate)
Dim CurrentMonth : CurrentMonth = Month(CurrentDate)
Dim CurrentYear  : CurrentYear = Year(CurrentDate)
'Calculate the startDay of Month
Dim dtmStartMonth
dtmStartMonth = CurrentDate - CurrentDay + 1
'Calculate Last Day of the Current Month!
'Get the currentdate, add one month up. Count the days off from the last date
Dim dtmEndMonth
'Check if month is December, if so then we need to calculate the next day 
'Which means; month is jan, and year = + 1
If CurrentMonth = 12 Then
dtmEndMonth = CDate(CurrentDay  & "-" & "01" & "-" & CurrentYear + 1) - CurrentDay
Else
dtmEndMonth = CDate(CurrentDay  & "-" & CurrentMonth + 1 & "-" & CurrentYear) - CurrentDay
End If
Dim intWeekDayMonthStarted : intWeekDayMonthStarted = WeekDay(dtmStartMonth) - 1

Dim ArrMonth(42)
'First Assign All zero's to the array,
'This is later used to replace for spaces
For i = 0 To 42
arrMonth(i) = "00"

Next
'Fill the array, Fill from the weekday starts
'Later we use an loop to draw all the stuff statically
For i = 0 To Day(dtmEndMonth)
'If it's smaller than 10 it's 1 digit, use an extra 0
If i < 10 Then 
 arrMonth(intWeekDayMonthStarted + i) = "0" & i 
Else
 arrMonth(intWeekDayMonthStarted + i) = i 
End If
Next
'Print actual data
'Use the arrMonth matrix to draw it all! :-)
Wscript.Echo " "&monthname(Month(Date))
Wscript.Echo strOutput & VbCr
strOutput = "" 'Clear output buffer
For i = 0 to Ubound(ArrMonth)
strOutput = strOutput & " " & arrMonth(i)
strOutput = Replace(strOutput, "00", "  ") 'Clear non used data for spaces
If i Mod 7 = 0  Then 'If we count 7, make an pageBreak
 Wscript.Echo strOutput & VbCr
 strOutput = ""
End If
Next

wscript.echo strOutput

wscript.sleep 3000

(in reply to djredmar)

Post #: 2

RE: Very Limitied Calendar - 8/7/2008 1:02:17 AM

djredmar

Posts: 61
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

thanx!

My idea was to create it first in simple console for testing purposes...

Some later on will transfer this to an HTA and make more dates possible and selection of currentday etc...

(in reply to TomRiddle)