Welke dag welke datum welk jaar?

quote:

---

Op dinsdag 8 oktober 2002 10:31 schreef Tijn het volgende:
Je kunt op het klokje van Windows dubbelklikken en de datum opzoeken. Dan staat de dag erbij

---

quote:

---

Op dinsdag 8 oktober 2002 10:33 schreef Verbal het volgende:
Heeft niemand een moeilijker oplossing, zodat ik me niet zo'n kluns hoef te voelen?

---

quote:

---

Op dinsdag 8 oktober 2002 10:33 schreef Verbal het volgende:

[..]

Da's wel heeeeel makkelijk

Heeft niemand een moeilijker oplossing, zodat ik me niet zo'n kluns hoef te voelen?

Alvast bedankt...

V.

---

[Dit bericht is gewijzigd door NorthernStar op 08-10-2002 10:36]

in de vba-editor van een willekeurig office programma

msgbox(format("21 aug 2135","dd"))

geloof ik dat moet werken

quote:

---

Op dinsdag 8 oktober 2002 10:35 schreef slakkie het volgende:

[..]

Doe het met je ogen dicht

---

quote:

---

Op dinsdag 8 oktober 2002 10:30 schreef Verbal het volgende:
Weet iemand waar en hoe je erachter kunt komen op welke dag een bepaalde datum in een bepaald jaar viel?
Zijn daar websites over te vinden? (vast wel)
Weet iemand waar?

V.

---

quote:

---

Op dinsdag 8 oktober 2002 10:36 schreef Roonaan het volgende:
moeilijke oplossing?
[vba-code]

---

quote:

---

Op dinsdag 8 oktober 2002 15:02 schreef marbe het volgende:
Windows klokje gaat niet. Hij loopt maar tot 1981. Ikke ben uit '71

---

code:

---

Dim foo, bar, crap
foo = InputBox("halo verbal welke datum wil je wete")
bar = DatePart("w", FormatDateTime(CDate(foo)))
crap = Array("karbonadedag", "zondag", "maandag", "dinsdag", "woensdag", "donderdag", "vrijdag", "zaterdag")
MsgBox "hallo verbla volges mij viel dat op een " + crap(bar) + " maar goed dat is mijn mening 8-)"

---

quote:

---

Op dinsdag 8 oktober 2002 15:30 schreef kikkerlikker het volgende:
nou verbal ik heb een coputer programa voor je gemaakd waarmee je ale datems uit ken rekene wat voor dag et was plak de code in een tekst bestant en noem et verbal.vbs en dan als je et dubbelklikd ken je een datum in voere en zegt ie welke dag et was maar goed dat is mijn mening

code:

---

Dim foo, bar, crap
foo = InputBox("halo verbal welke datum wil je wete")
bar = DatePart("w", FormatDateTime(CDate(foo)))
crap = Array("karbonadedag", "zondag", "maandag", "dinsdag", "woensdag", "donderdag", "vrijdag", "zaterdag")
MsgBox "hallo verbla volges mij viel dat op een " + crap(bar) + " maar goed dat is mijn mening 8-)"

---

---

prrrrrrr

code:

---

#include <stdio.h>
#include <math.h>

int main ()
{
  float day, date, month, year, y, d, m, c;
  int a;
  printf ("Om welke dag gaat het? ");
  scanf ("%f", &date);
  printf ("Welke maand? ");
  scanf ("%f", &month);
  printf ("En in welk jaar? ");
  scanf ("%f", &year);
  if (month == 2)
  {  m = 31; }
  if (month == 3)
  {  m = 59; }
  if (month == 4)
  {  m = 90; }
  if (month == 5)
  {  m = 120; }
  if (month == 6)
  {  m = 151; }
  if (month == 7)
  {  m = 181; }
  if (month == 8)
  {  m = 212; }
  if (month == 9)
  {  m = 242; }
  if (month == 10)
  {  m = 273; }
  if (month == 11)
  {  m = 303; }
  if (month == 12)
  {  m = 334; }
  year = year - 1900;
  y = year * 365;
  while (year >= 4)
  {  
  y += 1;
  year -= 4;
  }
  if (year == 0 && month < 3)
  {  c = -1; }
  a = y + m + date + c;
  a %= 7;
  char *days[] = {"maandag", "dinsdag", "woensdag", "donderdag",
  "vrijdag", "zaterdag", "zondag"};
  printf ("Dit is een: ");
  printf ("%s\n", days[a-1]);
  return (0);
} 

---