Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class ClipboardFusionHelper

    Public Shared Function ProcessText(text As String) As String
        BFS.Clipboard.PasteText(text)
        If IsNumeric(text) Then
          Dim x As Double = CDbl(text)
         x -= 1
         text = x.ToString()
        ElseIf IsDate(text) Then
          Dim x As DateTime
         x = CDate(text)
         x = x.AddDays(-1.0)
         text = x.ToString("yyyy-MM-dd HH:mm:ss")
        Else
          MessageBox.Show("Clipboard text is invalid.  It must be numeric or a date", "Decrement Value", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        Return text
    End Function

End Class