Datumsfunktionen

[toki78]

Hallo,
ich brauche verschiedene Datumsfunktionen wie z.B. daysinmonth, um eine Art
Kalender zu erstellen. Allerdings scheinen die in der Standardinstallation von ooo
nicht verfügbar zu sein. In der UNO-Dokumentation hab ich auch nichts gefunden.
Gibt es in Basic eine Kalender-Klasse wie in Java ?

Gruß
Toki

[komma4]

Nein

[DPunch]

Im Notfall lassen sich Kalendarfunktionen recht einfach als eigene Funtionen schreiben, wie z.B.

Code: Alles auswählen

Function DaysInMonth(nMonth as Integer, nYear as Integer) as Integer
	Dim nNextMonth as Integer, nNextYear as Integer
	nNextMonth = nMonth + 1
	nNextYear = nYear
	If nNextMonth > 12 Then
		nNextMonth = 1
		nNextYear = nYear + 1
	End If
	DaysInMonth = Dateserial(nNextYear,nNextMonth,1) - Dateserial(nYear,nMonth,1)
End Function

[toki78]

OK, vielen Dank !!