Login / Register
▼
Binary Fortress
Binary Fortress Software
CheckCentral
ClipboardFusion
CloudShow
DisplayFusion
FileSeek
HashTools
LogFusion
Notepad Replacer
Online Base64 Decoder
Online Base64 Encoder
Online JSON Formatter
ShellSend
TrayStatus
VoiceBot
WallpaperFusion
Window Inspector
More Apps...
DisplayFusion
CheckCentral
CloudShow
ClipboardFusion
FileSeek
VoiceBot
WallpaperFusion
▼
Download
Download
Change Log
Download Beta
Beta Change Log
License (EULA)
▼
Features
Features
HotKeys
Macros
Triggers
Clipboard Syncing
Clipboard Manager
Languages
Free vs Pro
Purchase
Screenshots
Apps
▼
Online
Online
Recent Items
Pinned Items
▼
Help
Help Guide
FAQ
Discussions
Contact Us
Find My License
Mailing Address
Advanced Settings
Macros
Languages
Clipboard
Fusion
WARNING: You currently have Javascript disabled!
This website will not function correctly without Javascript enabled.
Title
Message
OK
Confirm
Yes
No
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
Toggle Line Wrapping
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
Copyright © 2007-2021 Binary Fortress Software
•
News
•
Discussions
•
FAQ
•
Support
•
Privacy
•
ToS
•
Get Binary Fortress Merch