VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "IFormattable" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '------------------------------------------------------------------------------- 'File : iformattable.cls ' Copyright mpl by ERB software ' All rights reserved ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/classes/iformattable ' https://msdn.microsoft.com/en-us/library/system.iformattable(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2 'Environment : VBA 2007 + 'Version : 1.1.0 'Name : IFormattable 'Author : Stefan Erb (ERS) 'History : 21.06.2016 - ERS - Create ' 04.07.2016 - ERS - Die Paramter analog zur VB-Net Version hinzugefügt '------------------------------------------------------------------------------- Option Explicit '/** ' * Gibt ein String-Wert eines Objektes zurück ' * @param String Einige Klassen unterstützen ein Format, siehe dazu die Details zu den Umsetzungen ' * @param IFormatProvider Wird noch nict unterstützt ' * @return String ' */ Public Property Get toString( _ Optional ByVal format As String, _ Optional ByRef formatProvider As Object _ ) As String Attribute toString.VB_UserMemId = 0 'Attribute toString.VB_UserMemId = 0 End Property