Seite 1 von 1

Datumsfunktionen

Verfasst: Di, 12.01.2010 15:21
von 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

Re: Datumsfunktionen

Verfasst: Di, 12.01.2010 17:52
von komma4
Nein

Re: Datumsfunktionen

Verfasst: Di, 12.01.2010 18:09
von 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

Re: Datumsfunktionen

Verfasst: Do, 14.01.2010 12:54
von toki78
OK, vielen Dank !!