Imports System

Public Module Module1

    Public Class GuidConverter

   Public Shared Function OracleToDotNet(ByVal text As String) As String

      Dim bytes As Byte() = ParseHex(text)

      Dim guid As Guid = New Guid(bytes)

      Return guid.ToString("N").ToUpperInvariant()

   End Function

    Private Shared Function ParseHex(ByVal text As String) As Byte()

      Dim ret As Byte() = New Byte(text.Length / 2 - 1) {}

      For i As Integer = 0 To ret.Length - 1

          ret(i) = Convert.ToByte(text.Substring(i * 2, 2), 16)

      Next

      Return ret

  End Function

End Class

​

Public Function çevir(ByVal tutar As Decimal) As String

    Dim sTutar As String = tutar.ToString("F2").Replace("."c, ","c)

    Dim lira As String = sTutar.Substring(0, sTutar.IndexOf(","c))

    Dim kurus As String = sTutar.Substring(sTutar.IndexOf(","c) +1, 2)

    Dim yazi As String = ""

    Dim birler As String() = {"", "Bir ", "İki ", "Üç ", "Dört ", "Beş ", "Altı ", "Yedi ", "Sekiz ", "Dokuz "}

    Dim onlar As String() = {"", "On ", "Yirmi ", "Otuz ", "Kırk ", "Elli ", "Altmış ", "Yetmiş ", "Seksen ", "Doksan "}

    Dim binler As String() = {"Katrilyon ", "Trilyon ", "Milyar ", "Milyon ", "Bin ", ""}

    Dim grupSayisi As Integer = 6

    lira = lira.PadLeft(grupSayisi * 3, "0"c)

    Dim grupDegeri As String

​

    For i As Integer = 0 To grupSayisi * 3 - 1 Step 3

      grupDegeri = ""

      If lira.Substring(i, 1) <> "0" Then

        grupDegeri += birler(Convert.ToInt32(lira.Substring(i, 1))) & "Yüz"

      End If

      If grupDegeri = "Bir Yüz" Then

        grupDegeri = "Yüz "

      End If

      grupDegeri += onlar(Convert.ToInt32(lira.Substring(i + 1, 1)))

      grupDegeri += birler(Convert.ToInt32(lira.Substring(i + 2, 1)))

      If grupDegeri <> "" Then

        grupDegeri += binler(i / 3)

      End If

      If grupDegeri = "Bir Bin " Then

        grupDegeri = "Bin "

      End If

      yazi += grupDegeri

    Next

    Return yazi

  End Function

​

  Public Function çevir2(ByVal tutar As Decimal) As String

    Dim sTutar As String = tutar.ToString("F2").Replace("."c, ","c)

    Dim lira As String = sTutar.Substring(0, sTutar.IndexOf(","c))

    Dim kurus As String = sTutar.Substring(sTutar.IndexOf(","c) + 1, 2)

    Dim yazi As String = ""

    Dim birler As String() = {"", "Bir ", "İki ", "Üç ", "Dört ", "Beş ", "Altı ", "Yedi ", "Sekiz ", "Dokuz "}

    Dim onlar As String() = {"", "On ", "Yirmi ", "Otuz ", "Kırk ", "Elli ", "Altmış ", "Yetmiş ", "Seksen ", "Doksan "}

    Dim binler As String() = {"Katrilyon ", "Trilyon ", "Milyar ", "Milyon ", "Bin ", ""}

    Dim grupSayisi As Integer = 6

    lira = lira.PadLeft(grupSayisi * 3, "0"c)

    Dim grupDegeri As String = ""

​

    yazi += grupDegeri

​

    If yazi <> "" Then yazi += " TL "

    Dim yaziUzunlugu As Integer = yazi.Length

    If kurus.Substring(0, 1) <> "0" Then yazi += onlar(Convert.ToInt32(kurus.Substring(0, 1)))

    If kurus.Substring(1, 1) <> "0" Then yazi += birler(Convert.ToInt32(kurus.Substring(1, 1)))

​

    If yazi.Length > yaziUzunlugu Then

      yazi += " "

    Else

      yazi += " "

    End If

    Return yazi

  End Function

​

    Public Sub Main()

            Console.Write(çevir(1368.8) + ". ")

            Console.Write(çevir2(1368.8))

​

    End Sub

​

End Module

​

​