Ημερολόγιο συμβάντων σε vb.net

[makrisd1]

Καλημέρα σας...

Θέλω να βρω έναν τρόπο να βρίσκω την μεγαλύτερη και την μικρότερη ημερομηνία για κάθε μήνα καθώς και τις αντίστοιχες ημέρες ώστε να τις αποθηκεύσω σε διάφορες μεταβλητές... π.χ. ο Απρίλιος 2009 έχει 30 ημέρες με 1 του μηνός να είναι Τετάρτη και η 30η του μηνός είναι Πέμπτη... Πως μπορώ να πάρω τις παραπάνω πληροφορίες? Θέλω να φτιάξω ένα ημερολόγιο γεγονότων.. Αν έχετε κανένα έτοιμο κώδικα θα με βοηθούσατε πάρα πολύ!!! Ευχαριστώ προκαταβολικά!!!

[Billman]

>
       Dim d As New DateTime(2009, 4, 1) ' April 1st

       MessageBox.Show("Days in April:" + DateTime.DaysInMonth(d.Year, d.Month).ToString())
       MessageBox.Show("01/04/2009:" + d.DayOfWeek.ToString())
       MessageBox.Show("30/04/2009:" + d.AddDays(DateTime.DaysInMonth(2009, 4) - 1).DayOfWeek.ToString())

[makrisd1]

>
       Dim d As New DateTime(2009, 4, 1) ' April 1st

       MessageBox.Show("Days in April:" + DateTime.DaysInMonth(d.Year, d.Month).ToString())
       MessageBox.Show("01/04/2009:" + d.DayOfWeek.ToString())
       MessageBox.Show("30/04/2009:" + d.AddDays(DateTime.DaysInMonth(2009, 4) - 1).DayOfWeek.ToString())

 

Σε ευχαριστώ πολύ!!! Ωραίος ο κώδικας!!!