OpenOffice.info

OK, vielen Dank !!

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

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

[code]
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
[/code]

Nein

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