Public Class EplanDatumVandaag

		<Start()> _	
	<DeclareAction("EplanDatumVandaag")> _
	Public Sub Datum()
		
	Dim DatumVandaag As Date = Date.Today
	Dim DagVandaag As String = Date.Today.Day
	Dim MaandVandaag As String = Date.Today.Month
	Dim JaarVandaag As Short = Date.Today.Year
	
	'Bij de dagen van 0 t/m 9 een "voor" 0 plaatsen:
	 If DagVandaag < 10 Then
	 	DagVandaag = (0 & DagVandaag)
		
	 	End If
	
	'Maandcijfers omzetten in (afgekorte) maandnamen:
	Select Case MaandVandaag
		Case 1
			MaandVandaag = "JAN"
		Case 2
			MaandVandaag = "FEB"
		Case 3
			MaandVandaag = "MRT"
		Case 4
			MaandVandaag = "APR"
		Case 5
			MaandVandaag = "MEI"
		Case 6
			MaandVandaag = "JUN"
		Case 7
			MaandVandaag = "JUL"
		Case 8
			MaandVandaag = "AUG"
		Case 9
			MaandVandaag = "SEP"
		Case 10
			MaandVandaag = "OKT"
		Case 11
			MaandVandaag = "NOV"
		Case 12
			MaandVandaag = "DEC"
			
			
	End Select
	
	'Datum in het clipboard plaatsen:
	My.Computer.Clipboard.SetText(DagVandaag & "." & MaandVandaag & "." & JaarVandaag)
	

	End Sub
End Class