18 lines
399 B
QBasic
18 lines
399 B
QBasic
Attribute VB_Name = "Validators"
|
|
Option Explicit
|
|
|
|
Public Function ValidateqCode(text As String) As Long
|
|
If text = "" Then
|
|
ValidateqCode = &HFFFFFF
|
|
Exit Function
|
|
End If
|
|
If Mid$(text, 1, 1) <> "Q" Or Mid$(text, 3, 2) <> ".." Or Mid$(text, 8, 1) <> "$" Or Len(text) <> 8 Then
|
|
ValidateqCode = vbRed
|
|
Else
|
|
ValidateqCode = vbGreen
|
|
End If
|
|
End Function
|
|
|
|
|
|
|