Új hozzászólás Aktív témák

• #4310 Delila_1 veterán FragMaster #4308

  Új Válasz 2009-01-04 18:25:37 #4310

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4308 üzenetére

  Ennél a feladatnál az is kérdés volt, hogy milyen napra esik a születési dátum. A WEEKDAY függvény (hét.napja) megadja, hogy a hivatkozott dátum a hét hányadik napjára esik. A második paraméter - jelengeg 2 - azt adja meg, hogy hétfővel kezdődik a hét. 1 esetén vasárnap lenne a kezdő nap.
  Az év kiszámításához a 365-tel való osztás helyett a YEAR (év) függvényt használd.
  (októberben töltöttem az n-edik évemet, és ez a galád most, év elején n+1-et ír ki)

  Function KORA(Születési_dátum)
  If VarType(Születési_dátum) = 0 Then
  KORA = "Nincs adat": Exit Function
  End If
  If VarType(Születési_dátum) <> 7 Then
  KORA = "Hiba": Exit Function
  End If
  KORA = Year(Date) - Year(Születési_dátum)
  nap = Weekday(Születési_dátum, 2)
  Select Case nap
  Case 1
  nap = "hétfő"
  Case 2
  nap = "kedd"
  Case 3
  nap = "szerda"
  Case 4
  nap = "csütörtök"
  Case 5
  nap = "péntek"
  Case 6
  nap = "szombat"
  Case 7
  nap = "vasárnap"
  End Select
  KORA = KORA & " éves, születésének napja: " & nap
  End Function

Új hozzászólás Aktív témák