Lotus Notes / Domino Sonstiges > Tipps und Tricks

[Script]- Quartal aus Datum LS

(1/2) > >>

robertpp:
Hab leider nichts bezüglich diesem Thema gefunden und da hab ich mir gedacht schreibst schnell mal etwas. Ist zwar nichts besonderes aber mir hat es weitergeholfen.

Sub Click(Source As Button)
   i = Today
   Call setquarter(i)
End Sub

Function setquarter(sToday As Variant)
   If sToday <> "" And Isdate(sToday) Then
      iYear = Year(sToday)
      Quartal = (Month(sToday)/3)
      fQuartal = Fraction(Quartal)
      If fQuartal * 10 < 5 And fQuartal <> 0 Then
         Quartal = Quartal +1
      Elseif fQuartal * 10 > 5 Then
         Quartal = Quartal
      End If
      Quartal = Cint(Quartal)
'      Msgbox Quartal & ". Quartal " & iYear
      setquarter = quartal
   End If
End Function


Wahrscheinlich gibt es eh ein Funktion  :D aber ich hab sie nicht gefunden.

Gruss Robert

Glombi:
Ich habe das noch etwas optimiert:

q = 1 + Fix( (monat-1) / 3 )

Function setquarter(sToday As Variant)
   If sToday <> "" And Isdate(sToday) Then
      Quartal = 1 + Fix( (Month(sToday)-1) / 3 )
       setquarter = quartal
   End If
End Function

Andreas

koehlerbv:
Auf jeden Fall erste Danke - diese Routine werden sicherlich viele gebrauchen können.

Ich habe auch noch etwas optimiert:

If Isdate(sToday) Then ...

weil Isdate ("") ist False.

Und vielleicht sollte man die Function noch sauber deklarieren:
Function setquarter(sToday As Variant) As Integer

Bernhard

Glombi:
Also so:

Function setquarter(sToday As Variant) as integer
   If Isdate(sToday) Then
      setquarter = 1 + Fix( (Month(sToday)-1) / 3 )
  Else
       setquarter = 0
   End If
End Function



Es wird also 0 zurückgegeben, falls kein Datum berechnet wurde.

Andreas

robertpp:
Passt,

dacht mir doch das geht noch einfacher das aber dann nur noch die hälfte übrig bleibt das hätte ich mir nicht gedacht!

Kleines Workaround mit goßer Wirkung.

Robert

Navigation

[0] Themen-Index

[#] Nächste Seite