在VB（Visual Basic）中编写时间换算程序，你可以使用以下代码作为参考：
获取当前日期和时间
```vb
Dim currentDate As Date
currentDate = Date
MsgBox "当前日期是： " & currentDate
```
计算时间间隔
```vb
Dim date1 As Date
Dim date2 As Date
date1 = 1937-7-7 ' 设置起始日期
date2 = Now ' 设置结束日期为当前日期
Dim years As Integer
Dim months As Integer
Dim days As Integer
years = DateDiff（"yyyy", date1, date2）
months = DateDiff（"m", date1, date2）
days = DateDiff（"d", date1, date2）
MsgBox "相差 " & years & " 年 " & months & " 月 " & days & " 天"
```
将秒数转换为小时、分钟和秒
```vb
Dim totalSeconds As Long
totalSeconds = Val（InputBox（"请输入秒数"））
Dim hours As Integer
Dim minutes As Integer
Dim seconds As Integer
hours = totalSeconds \ 3600
minutes = （totalSeconds Mod 3600） \ 60
seconds = totalSeconds Mod 60
MsgBox hours & " 时 " & minutes & " 分 " & seconds & " 秒"
```
将UNIX时间戳转换为标准时间
```vb
Function ToUnixTime（strTime As String, intTimeZone As Integer） As Long
If IsEmpty（strTime） Or Not IsDate（strTime） Then
strTime = Now
End If
If IsEmpty（intTimeZone） Or Not IsNumeric（intTimeZone） Then
intTimeZone = 0
End If
ToUnixTime = DateAdd（"h", -intTimeZone, strTime）
ToUnixTime = DateDiff（"s", "1970-1-1 0:0:0", ToUnixTime）
End Function
Function FromUnixTime（intTime As Long, intTimeZone As Integer） As Date
If IsEmpty（intTime） Or Not IsNumeric（intTime） Then
FromUnixTime = Now（）
Exit Function
End If
FromUnixTime = DateAdd（"h", intTimeZone, "1970-1-1 0:0:0"）
End Function
```
这些代码示例涵盖了从获取当前时间、计算时间间隔、将秒数转换为时间格式，以及将UNIX时间戳转换为标准时间等常见的时间换算任务。你可以根据需要选择和组合这些代码片段来构建你的时间换算程序。