Expression.FormatDates Property (Expression)

By default, the FormatDates property is "<fgcolor=000080> </fgcolor>". By default the dates get colored in blue. Use the FormatDates to define the appearance for the dates in the control. If the FormatDates property is empty no format is applied to dates in the control.

You can use any of the following properties to format:

numbers, FormatNumbers property, like 1.00
dates, FormatDates property, like #1/1/2001#
strings, FormatStrings property, like "string"
result, FormatResult property

The FormatDates supports the following HTML tags:

 bold bolds a part of the caption.
 underline specifies that the portion should appear as underlined.
<s> ~~strikeout~~ </s> specifies that the portion should appear as strikeout.
 italic specifies that the portion should appear as italic.
<fgcolor=FF0000>fgcolor</fgcolor> changes the foreground color for a portion.
<bgcolor=FF0000>bgcolor</bgcolor> changes the background color for a portion.
text displays portions of text with a different font and/or different size. For instance, the bit draws the bit text using the Tahoma font, on size 12 pt. If the name of the font is missing, and instead size is present, the current font is used with a different size. For instance, bit displays the bit text using the current font, but with a different size.
& glyph characters as &amp ( & ), &lt ( < ), &gt ( > ), &qout ( " ), &#number, For instance, the &#8364 displays the EUR character, in UNICODE configuration. The & ampersand is only recognized as markup when it is followed by a known letter or a # character and a digit. For instance if you want to display bold in HTML caption you can use bold

The following sample shows how you can show the dates in bold:

VBA (MS Access, Excell...)

With Expression1
	.FormatDates = "<b> </b>"
	.Expression = "date(#1/1/2001# +1)"
End With

VB6

With Expression1
	.FormatDates = "<b> </b>"
	.Expression = "date(#1/1/2001# +1)"
End With

VB.NET

With Expression1
	.FormatDates = "<b> </b>"
	.Expression = "date(#1/1/2001# +1)"
End With

VB.NET for /COM

With AxExpression1
	.FormatDates = "<b> </b>"
	.Expression = "date(#1/1/2001# +1)"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXPRESSIONLib' for the library: 'Expression 1.0 Control Library'

	#import <Expression.dll>
	using namespace EXPRESSIONLib;
*/
EXPRESSIONLib::IExpressionPtr spExpression1 = GetDlgItem(IDC_EXPRESSION1)->GetControlUnknown();
spExpression1->PutFormatDates(L"<b> </b>");
spExpression1->PutExpression(L"date(#1/1/2001# +1)");

C++ Builder

Expression1->FormatDates = L"<b> </b>";
Expression1->Expression = L"date(#1/1/2001# +1)";

expression1.FormatDates = "<b> </b>";
expression1.Expression = "date(#1/1/2001# +1)";

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Expression1.FormatDates = "<b> </b>";
	Expression1.Expression = "date(#1/1/2001# +1)";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.FormatDates = "<b> </b>"
		.Expression = "date(#1/1/2001# +1)"
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axExpression1.FormatDates = "<b> </b>";
axExpression1.Expression = "date(#1/1/2001# +1)";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	expression1.FormatDates("<b> </b>");
	expression1.Expression("date(#1/1/2001# +1)");
}

Delphi 8 (.NET only)

with AxExpression1 do
begin
	FormatDates := '<b> </b>';
	Expression := 'date(#1/1/2001# +1)';
end

Delphi (standard)

with Expression1 do
begin
	FormatDates := '<b> </b>';
	Expression := 'date(#1/1/2001# +1)';
end

VFP

with thisform.Expression1
	.FormatDates = "<b> </b>"
	.Expression = "date(#1/1/2001# +1)"
endwith

dBASE Plus

local oExpression

oExpression = form.EXPRESSIONACTIVEXCONTROL1.nativeObject
oExpression.FormatDates = "<b> </b>"
oExpression.Expression = "date(#1/1/2001# +1)"

XBasic (Alpha Five)

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.FormatDates = "<b> </b>"
oExpression.Expression = "date(#1/1/2001# +1)"

Visual Objects


oDCOCX_Exontrol1:FormatDates := "<b> </b>"
oDCOCX_Exontrol1:Expression := "date(#1/1/2001# +1)"

PowerBuilder

OleObject oExpression

oExpression = ole_1.Object
oExpression.FormatDates = "<b> </b>"
oExpression.Expression = "date(#1/1/2001# +1)"

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormatDates to "<b> </b>"
	Set ComExpression to "date(#1/1/2001# +1)"
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExpression

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExpression := XbpActiveXControl():new( oForm:drawingArea )
	oExpression:CLSID  := "Exontrol.Expression.1" /*{B33F5489-49AC-4155-98E7-9BBFC57FF019}*/
	oExpression:create(,, {10,60},{610,370} )

		oExpression:FormatDates := "<b> </b>"
		oExpression:Expression := "date(#1/1/2001# +1)"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN

		Type	Description
		String	A string expression that defines the HTML expression being used when control displays dates.