Decrement Value

Return to ClipboardFusion Macros

Description	Takes a numeric or date value and decrements it. Numeric values are decremented by 1. Date values are decremented by a single day.
Language	VB (.Net)
Minimum Version	3.3+
Created By	wooster11
Contributors	-
Date Created	Aug 19, 2014
Date Last Modified	Aug 19, 2014

Macro Code

Copy

Select All

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