Macro: Change month in different languages
Frits van Leeuwen
I have a macro for create a letter. In the macro, I give the user a dialog
for choosing a language. (Dutch, English or Germen)
Then I start a new dialog. There I ask the user the letterinformation within
a date. But in the letter I get allways a Dutch date.
I mean the language of the date is allways Dutch. I do not know how to
change it.
Who can help?
Here the macro.
Application (WordPerfect; "WordPerfect"; Default!; "NL")
// *** Dialog init ***
VHoog:=14
// *** Dialog TaalkeuzeBrief ***
DHoog:=90
DBreed:=100
DialogDefine("TaalkeuzeBrief";30;30;DBreed;DHoog; Percent!;"Taalkeuze")
DialogSetProperties("TaalkeuzeBrief";"Charter BT Roman";10p;;;)
DialogAddText("TaalkeuzeBrief";"Statisch1";0;10;100;VHoog;Center!;"Kies de
taal van de brief")
DialogAddPushButton("TaalkeuzeBrief";"KnopNederlands";10;34;80;14;1;"&Dutch"
)
DialogAddPushButton("TaalkeuzeBrief";"KnopEngels";10;50;80;14;0;"&English")
DialogAddPushButton("TaalkeuzeBrief";"KnopDuits";10;66;80;14;0;"&Germen")
DialogShow("TaalkeuzeBrief";"WordPerfect";;)
IF (MacroDialogResult = 1)
QUIT
ENDIF
// *** briefinstellingen ***
MarginTop (MarginWidth: 4.76c)
MarginBottom (MarginWidth: 5.24c)
MarginLeft (MarginWidth: 2.19c)
MarginRight (MarginWidth: 5.61c)
LineHeight (Height: 0.49c; Minimum: 0.0c)
Switch (MacroDialogResult)
// *** Init Dutch***
CaseOf "KnopDutch":
Taal:="Dutch"
Tdatum:="datum"
Language (Language: "NL")
// *** Init Engels ***
CaseOf "KnopEnglish":
Taal:="English"
Tdatum:="date"
Language (Language: "UK")
// *** Init Germen ***
CaseOf "KnopGermens":
Taal:="Germen"
Tdatum:="Datum"
Language (Language: "DE")
EndSwitch
DialogDestroy("TaalkeuzeBrief")
// *** Dialog Briefgegevens"
VDag:=DateDay()
VMaand:=DateMonth()
VJaar:=DateYear()
datum:=DateString(;;"d MMMM yyyy")
DHoog=250
DBreed=500
DialogDefine("Briefgegevens";10;10;DBreed;DHoog;
Percent!+ok!;"Briefgegevens")
DialogSetProperties("Briefgegevens";"Charter BT";10p;;;)
DialogAddText("Briefgegevens";"Statisch10";10;162;89;VHoog;Center!;"datum")
DialogAddDate("Briefgegevens";"gdatum";100;162;100;VHoog;0;datum;VJaar;VMaan
d;VDag)
DialogShow("Briefgegevens";"WordPerfect";;"OKBttn")
IF (MacroDialogResult = 1)
QUIT
ENDIF
Font (Name: "Charter BT Roman"; Family: 4394; Attributes: FontMatchNormal!;
Weight: 90; Width: WidthUnknown!; Source:
DRSFile!; Type: TrueType!; CharacterSet: FontMatchUserDefined!)
FontSize (FontSize: 0.32c)
// *** adres plaatsen ***
Advance (Where: AdvanceFromTop!; Amount: 150.42p)
// *** vaste regels ***
Font (Name: "Charter Bd BT "; Family: 4394; Attributes: FontMatchNormal!;
Weight: 90; Width: WidthUnknown!; Source:
DRSFile!; Type: TrueType!; CharacterSet: FontMatchASCII!)
FontSize (FontSize: 6.48p)
Type (Text: Tdatum)
Font (Name: "Charter BT Roman"; Family: 4394; Attributes: FontMatchNormal!;
Weight: 90; Width: WidthUnknown!; Source:
DRSFile!; Type: TrueType!; CharacterSet: FontMatchASCII!)
FontSize (FontSize: 9.0p)
Tab ()
Type (Text: datum)