VersionProgram
Public Function NumeroVersione() As String Static Nv As String If Nv = "" Then Nv = Trim$(Str$ (App.Major)) & "." & Format$(App.Minor , "##00") & _ "." & Format$(App.Revision , 000) End If NumeroVerione = Nv End Function
Public Function NumeroVersione() As String
Static Nv As String
If Nv = "" Then
Nv = Trim$(Str$ (App.Major)) & "." & Format$(App.Minor , "##00") & _
"." & Format$(App.Revision , 000)
End If
NumeroVerione = Nv
End Function
( versionprogram.html )- by Paolo Puglisi
- Modifica del 17/12/2023