Die Funktion ist erstmal nur ein Gerüst um zu schauen obs funktioniert,
die Parameter werden noch nicht ausgewertet.
Function GetFirstDayOfMonth(psMonth As String, piYear As Integer) As String
' Berechnet den Namen des ersten Tages im Monat
' Erfordert den Monat psMonth und das Jahr piYear als Parameter
'
Dim sTemp As String
sTemp$ = "Montag"
GetFirstDayOfMonth$ = sTemp$
End Function
Hi Dirk, Hi m3,
ich fasse mich mal kurz, deklariert sind die Variablen richtig und in sCurrentYear$ steht auch was drin ;)
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim sCurrentMonth As String
Dim sCurrentYear As String
Dim sMessageBoxSelectString As String
Dim sFirstDay As String
Set uidoc = workspace.CurrentDocument
sCurrentMonth$ = uidoc.FieldGetText("DiaMonat")
sCurrentYear$ = uidoc.FieldGetText("Jahr")
sMessageBoxSelectString$ = "Gewählten Monat füllen? " + sCurrentMonth$ + " " + sCurrentYear$
sFirstDay$ = getFirstDayOfMonth(sCurrentMonth$, Cint(sCurrentYear$))
Messagebox sFirstDay$ 'TEST
If Messagebox(sMessageBoxSelectString$, 36, "Monat erstellen") = 6 Then
Messagebox ("Monat wird gefüllt") 'TEST
Else
Messagebox ("Abbruch") 'TEST
End If
End Sub
Mach mal
sMessageBoxSelectString$ = "Gewählten Monat füllen? |" & sCurrentMonth$ & "| |" & sCurrentYear$ & "| |" & CStr( CInt(sCurrentYear$ ) ) & "|"