fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4.     Public Shared Sub Main()
  5.  
  6.         Dim d As MyDecimal = 1D
  7.         Dim s As String = "hoge "
  8.         s = s & d
  9.  
  10.         System.Console.WriteLine(s) 
  11.  
  12.     End Sub
  13.  
  14. End Class
  15.  
  16. Public Structure MyDecimal
  17.  
  18.     'Public Property Value As Decimal
  19.     Public  Value As Decimal
  20.  
  21.     Public Sub New(val As Decimal)
  22.         Me.Value = val
  23.     End Sub
  24.  
  25.     Public Shared Widening Operator CType(d As MyDecimal) As Decimal
  26.         Return d.Value
  27.     End Operator
  28.     Public Shared Widening Operator CType(d As Decimal) As MyDecimal
  29.         Return New MyDecimal(d)
  30.     End Operator
  31.  
  32.     Public Shared Widening Operator CType(d As MyDecimal) As String
  33.         Return d.Value.ToString
  34.     End Operator
  35.  
  36.     Public Overrides Function ToString() As String
  37.         Return Value.ToString("0.00##")
  38.     End Function
  39.  
  40.     Public Shared Operator &(d As MyDecimal, s As String) As String
  41.         Return d.ToString & s
  42.     End Operator
  43.     Public Shared Operator &(s As String, d As MyDecimal) As String
  44.         Return s & d.ToString
  45.     End Operator
  46.  
  47. End Structure
  48.  
Success #stdin #stdout 0.02s 24272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
hoge 1.00
https://ideone.com/l0VRiT
language:
VB.NET (mono-3.10)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!